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Preface 

The Amstrad CPC 464 represents tremendous value for money, and is 
an extremely easy machine to use. The novice and expert alike should 
have many hours of entertainment and pleasant surprises ahead of 
them. 

The version of Basic on the Amstrad (LOCOMOTIVE) is very easy to get 
to grips with and is extremely powerful. Most of the Amstrad'’s facilities 
are available to Basic programmers through ‘Locomotive’. 

This book carries on Melbourne House's tradition of high quality 
Literature and Software in support of personal computers. 


Arrangement of Programs 


All the programs have been classified, explained and set out in an easy 
to read and enter format, with further programming suggestions/ 
enhancements. 

We hope you enjoy this book and the games within and continue to get 
the ‘best’ for and from your Amstrad. 


Special Characters 


In the programs throughout this book spaces have been used to aid 
readability. You need not enter these as they will waste RAM. There 
are some lines with only a colon on, again these were inserted to make 
the programs more legible and need not be entered. 

The odd characters between quotes in the program listings have 
been designed to represent spaces and thus avoid confusion. So where 
you see the symbol "«" you should enter a space. 


The letter ‘I and the number “1” can cause some confusion at times, 
as well as the letter ““O” and the number “0”. 

Once you are familiar with them they don’t cause any problems it 
is just a matter of recognising the difference between them. 


The letter | looks like this: | 
The number 1 looks like this: 1 
The letter O looks like this: O 
The number @ looks like this: 9 


Frequently occurring (and easily overlooked) typing 
errors with the Amstrad CPC 64/664/464 


1. Do not confuse the letter O with the digit @ (zero). 

2. Do not confuse the capital letter | with the digit 1 (one). 

3. Acomma and a period are not interchangeable. 

4. When a colon (:) is required do not type a semi-colon (;). The 
reverse rule applies as well. 


5. A double quote (’’) is not interchangeable with an apostrophe 


(’). 

6. When a program shows one or more spaces, do not forget to 
include them (press the space bar). The computer registers a space 
as a fulfledged character. 

7. Brackets are important, particularly in BASIC versions of math- 
ematical formulae. A bracket too many, or a bracket short, usually 
causes a syntax error. Exclusion of two outer brackets may cause a 
‘logic’ error; which will enable the program to run but will deliver the 
wrong results. 

8. Do not forget to press the SHIFT key as well, when you have to 
enter the following characters: 

1", #,$,%,& (6), =\,01%, +, >, <and ? 

9. Brackets are () and not []. 


Overall advice: 

When you have typed in a program and you can't get it running properly, 
even after numerous debugging attempts, then put the job at rest for 
a day or so. It often happens that you will find the bug at once after 
resuming the job. 


CHEXSUM 


The unique CHEXSUM program validation 


WHY 

When a book of programs such as this book is keyed in, everybody 
invariably makes reading and typing mistakes and then spends ages 
trying to sort out where and what is causing the error (errors). 

Even experienced programmers often cannot identify an error just 
by listing the relevant line and need to do the tedious job of going back 
to the book, especially with DATA statements. 

Realising that this is a major cause of frustration in keying the pro- 
grams, we decided to do something about it. 

There is a short routine in this book which you should key in and 
save BEFORE you key in other programs. 

Using this routine you will be able to find out if you have made any 
keying errors at all and in which lines, before you even run the program. 

In effect this means that with this book you need not waste time 
looking for keying errors, you simply run the routines and look at the 
display to identify lines containing errors. It's that easy. 

The principle behind the routines is a unique chexsum which is 
calculated on each individual line of the program as you have keyed 
it in. Compare this chexsum value with the value for that line in the list 
at the end of the program listing; if they are the same the line is correct, 
if not there is an error in that line. 

WHEN 

The simplest method is to enter the CHEXSUM program in now and 
save it to tape or disk. 

You can type in the chexsum program at any time, even if you have 
started to type in a program. You cannot, of course LOAD in CHEXSUM 
from tape or disk because it will erase all you have typed so far. 

The obvious solution is to MERGE the programs. The CHEXSUM 
program should be saved onto a separate cassette to allow easy 
access. 

HOW CAN YOU TELL IF CHEXSUM HAS BEEN ENTERED 
CORRECTLY? 

After having keyed CHEXSUM the logical thing would be to chexsum 
the program to make sure it is correct. But is it possible to do this? If 
you follow the instructions you will be able to check CHEXSUM. 

1. Type and save CHEXSUM. 

2. RUN ChexSum and it will check itself. 

3. Check output against the table of values at the end of the program. 

4. If the program is incorrect, edit the incorrect lines and resave the 
program. 

Below is the listing of CHEXSUM and instructions on its use. 


CHIE ASSLT 


Initialise program and sort input 


Jd, dos PRINT "CHE XS UI PROGR ART 


60008 CLS 
' P PRINT "OUTPUT, TO,LRPRINTER , CPO JOR WSCREET CS 


OA 42 


s fF Xd = "" THEN We 
CRO Kae "oo" THEN $7 
OR Xa oe Ue" THEN STK 
TRUE SSS TAROT DING tT IME: 


PRINT oP 
FRONT Se 

X#ox JF VA 
OWI 

NE X TIME oe ETL 


OOU4 LF 
EMG LOT te. ! 

10 X# 0 @ THEN LGSTART = Val © Xa oo 
HU0OWU VOTAL = @ or LIMIT = 67990 2° MEM « 


Main program loop 


OMT US 8 
SMBS) MEK TMEM oe FRR CO MEM 2 4 BiG om REE O MEM 2) ot IE OCT ME rt 


dog TR LN ea 


EIA 4 
ARI TES IME XT Ae 


Soe PEER C MEM + 2) + 256 # F 

LMT Tele LAG EL Se tk TMs 

¢ GOTO ese 

als MEM + 4 os OHASUI ® Gs 

a MEM) THeN MEM ; Jo: GOW 6o@l 1a 

chek OC MEM oo ) OR RPEEE C MEI 2 197 THEI MEP ee NEO T 
GOTO 61 Bue 

WWE XT MES 

HRC VIE og OTF TORII 


Eh CME 
LoS Ake | 


Ed 1 
OWL 1 
HQ Le 


IVT AG 


EV PHEW QUQ TE 3 QUOTE 


QR TORE R ko Me THEN 68170 
s NEXTOR = FEER OC MEM + 1) 8 G 
1 THEN 681 8@ 


OWL 
6W160 IAS TOk fC MEM 


Qi 7a 
OW LBA 
LQ 


CX SU 4 ‘ 
+ |os WEND 
REAM, US TMG "SARS LM on FROIN T RS 


CHXSUM 
6IW1O 1OTAL = TOTAL + CHXSUIN 2 GOTO 6aaBe 


Check for REM'’s etc 


GIAGR 4 
BAB LG 


ak QR |. 
LAS TOR 3 


2 OR LASTOF 


Ok = Be 
87 OND LAST OE eS) 


( 


yh Shel) om 41 OR NEXT 


» THEN LGNGO 


1 OR 0 NEX TOR 
Loon RE TURIN 


OLS sa 


Output Total 


G1VID 4 
OOO FRINT #STREAM 2 PRINT #STREAM, "TOTAL wa at TOTAL 
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ChexSum Tables 


OIMMAV 


SMW LG se 


OWE UI 


Sl 2s 


GQM4M = 


Er) 


OWBGWI os 


OMY 


EMI 


HAMAD sx 


LRG 


Bil RAR 


edd 


ee 


B29) 


eb 


AEBS 


Wi 


Andy 2 


od 


6B1 08 


M1 14 


60120 


fe) 4) 


6014a 


OVALS 


OMI Oo = 


OWL78 


6018 


61600 = 


AGRE 


ADA 


1687 


al" be ae 


SAO! 


OMI 


OS 


L873 


MED 7 


61@18 


6149 


61500 * 


1518 


61 See 


é | 


@ 


61990) 


6200R 


TOTAL 


Mee 
G9 & 4 


7485 


2U 4 


USING CHEXSUM 


The greatest problem encountered when typing in programs from a 
book is errors made by the user. Most of these are picked up when 
the computer responds to the RUN command with the ‘Syntax Error’ 
message. The user then has only to LIST the line and compare it with 
the line in the book. Unfortunately, some errors are more subtle and 
not fatal to program operation. These types of errors will cause the 
program to run, but incorrectly, and the computer will not be able to 
detect them as such. 

ChexSum is a special program which generates a unique sum for 
each line in a program and a grand total of all line sums. After each 
program listing is a table of check sums. You need only compare the 
numbers in the ChexSum table for each program with those generated 
by ChexSum. If two numbers differ, check that particular line. 

1. Type in your game program, Patterns, say. Save it to tape or disk 
with the statement; SAVE “PATTERNS”. 

2. Reload your game program if necessary, using the statement: 
LOAD “PATTERNS” for the first game in the book. Do not RUN the 
game at this point. 

3. To join ChexSum to the end of your program, enter the statement: 
MERGE “CHEXSUM”. 

4. When merged, enter RUN 6000 to activate ChexSum. The pro- 
gram will prompt: 

OUTPUT TO PRINTER (P) OR SCREEN (S) 

Enter a P will cause output to go to the printer, and entering S will 
cause output to go to the screen. 

5. ChexSum next prompts: 

STARTING LINE NUMBER 

Enter the first line number in the program to be checked and press 
ENTER. 

6. ChexSum will now output the check-sum table for the program. 
To halt the program press the escape key once, and to restart the 
output press any key other than escape. When ChexSum has finished 
you may remove ChexSum from memory with the DELETE instruction. 
For example: 

DELETE 60000 — 62990 

7. Check your grand total with that in the book. If they differ a line 
has been entered incorrectly. Compare line numbers until you locate 
the bad ones and then edit them. 

8. Repeat steps 4 to 7 until the games program is debugged. In 
step 5 enter the line number of the first bad line to avoid ChexSum 
verifying the games program from the first line. 

9. When the games program is running satisfactorily, delete the 
ChexSum program as described above. 
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10. Finally save the debugged version onto a clean tape or disk, 
with: 
SAVE “PATTERNS” 


PATTERNS 


CLASSIFICATION: Interactive Graphics 


Create your own fantastic patterns based on rectangles, triangles, 
ellipses, cardiods, spirals and lemniscates! Just follow the instructions 
and watch the effects. 

For each pattern, a number of questions must be answered. To do 
this in a number and press <space>, or if you don’t want to change 
the number from the previous pattern, just press <ENTER>. 

When the pattern is completed, press <space> to start again. 


PROGRAMME SUGGESTIONS 


Here are some interesting combinations to get you started: 

Rectangles: 21, —200, 0, 40, 5, —5, 0, 150, 0,9, 1, —-1 

Triangles: 11, —300, —200, 83, 4, 3, 20, 0.2, 2, 0.03 

Ellipses: 24, @, @, 25, 0, 0, 200, 90, —8, 4 

Cardioids: 26, —300, @, 35, 15, 8, 180, —7 

Spirals: 2, 0, 80, 12, —8, —1@, 9, 15, 0, 4 

Lemniscates: 15, —100, —50, 10, 20, 15, 20000, —1000 

Simple additions would be sections for drawing lines instead of rec- 
tangles or even plotting simple points. 


PROGRAM 
Variables 


Start of co-ordinates for first shape 

Number of shapes 

Increments between shapes in X and Y directions 
Pen Colour 

Temporary for Inkey$ 

Angle in radians 

Triangle size 

Increment between shapes in TS 

Increment in angle 

Rectangle co-ordinates for two points (corners) 
Warp (deformation) of rectangle in each direction. 
Increment in warps X and Y 

Factors in formulae for Ellipses, Cardioids Spirals 
and Lemniscates 

Increments for A and B 

Maximum for spiral (radians) 

For polar co-ordinates 


Program Structure 


Line Numbers 


10 —30 
50 — 130 
150 — 220 
240 — 270 
290 — 370 
390 — 500 
520 — 610 
638 — 690 
710 — 780 
800 — 860 
880 — 936 
956 — 1030 
1050 — 1090 
1110 — 1160 
1180 — 1240 
1260 — 1310 


Function(s) 

Initialise colours 
Front menu 

Input data 

Select pattern type 
Control for triangles 
Control for rectangles 
Control for Ellipses 
Control for Cardioids 
Control for Spirals 
Control for Lemniscates 
Triangle draw 
Rectangle draw 
Ellipse draw 

Cardioid draw 

Spiral draw 
Lemniscate draw 


10 


Fey | ERIN 


4 
SQ 
6@) 


7 
8 
9) 
128 
110 
Lee 
a4) 


14d) 
Lind 


Lo 


176 
BQ) 


19@ 
wil 
21Q 


ee 


2 AQ 
4b) 


é od 


270 


Initialise colours 


MUD 1 
BORDER Lt 
FARE @ 4 F 


O,l os [Nk 1,24 2 [Wk ©,@ 


Front Menu 


CLG os PRINT SFAUES (LEO gs" FATTERNS” 
fhe LN ! s PRINT s PRINT "YV,aFkleage Select .Une,of the ,Poal dea 
w i oa" 


PRINT § FRINT “deat YP ER ae a LEO T BY PR 


s FRIWT 
© PRINT os iI PY 
s FRINT ¢ PRINT" ....ELlips 
2 PRINT & PRINT yaa Gar dio 
i RINT os INT" caaa Spiral "sé i 
PRIN & PRINT ¢ FRIMT yaa aalemni scate™s SPACES Cla) gly 


Input Data 


= TNREYS og LF wget 
RU AND OCR TE BIND Be 
Behe! AND ke oO GMD 
AND ox daa ei" THEN 1a 
BORDER Wa ER 2 ¢ CLS s INPUT "Colour"s28 : IF 
"HEN el eVAL Cz#) a PRINT 
Kiko Led 
INU Star bie aX al Gen 
THEN x VAL. (2) H 
TEU 


xe AND bee! 
AND x#oe"E" AND x 
6" AND ote» "S" @ND sok eT" 


yen 


Mato 2O) "e278 2 IF 2 


“or da a OT LOA eM) "sak oa TF 
THEN s FRING 

INET “Number ,of.shapes" gaa oa tk 
s PRINS 

INFUD “Thnereamnent wink a Cr O40, 60,640) "sad on CF 

Naess y s FR ONE 

CIVFeUd SPeeamMent viMaYa (400,00 ,400) "gek 2 TF eee" " THE 

N iy#VAL Cr#) os FRINI 


2" THEN ps VAL. Cad) 


2" THE 


Select Pattern type 


ORIGIN Sea, 2OO 


OR xée"R" THEN 390 ELSE 

TE yd" ee" OR 
OR xée"0" THEN 630 EL 
HEN FAQ ELSE Baa 


OR xdern" 7 


Keel ge yp 
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SOW 
AWA 
41) 
HOW 
A 
Ab ah (2) 


AI 
4 6Q) 


47) 


Control for Triangles 


twlrianghe,Sizew(O,boOwe ew.) "seb es Lk wake & 
eeVel Cady og FIM 

"Start ,Anqlhey Mwbo wo. 4) "eee om te 
s PROINT 
INFEUD “lreremnent .my,otee"acd& a te gee" THEM di b&VeL. C$ 
> og PREM 
WROD tnerenent wining he! gg os fF gabee'" THEN a 
db) 
Gh 
ROR tb TO ne : aneankia os 
it 
VILLI EIR 
Mex 4 

PTE yd "PRI LQ RLGE A7@ 


t sy=aytiy « ¢ 


Control for Rectangles 


Wytow 


so orycdh) Yor UNFUD "Corrier ,p orm aX 
LE eee!" THEN re CQ) VAL Grd) os FIRINT 

INEUT "Corner oie nya Cr eOO0,.to,c0O) "ge8 gs IF shee THE 
Nory Ce) Vel Cad) og RATIMI 

TRUE War pdt aA ab og TRE ade!" THEN wee VAL. Ceo og FRI 
| 

INFO “Warp aim gb op LR ade" THEN wyeVAL Cad) on PRIN 


“Toerenene wimax awaro! ga ek oa LF azeoe'' THEN iwClo Vv 
s FRINI 
"Tohereamant wow awarp "ac a fP gabe 


Dw Cad) eV 


Al. Gz #) 
CES 
FOR Get TO ms s rx closers Cl) tix s ry dloerydl)tiy so orx Ce) 
* fdtix a ry Cad ery Ce) tiy 

1 bo owy!whtw Ce) 


Ike. X 
[F INRE yd ""Q" THEN I@ ELSE Sa 


Control for Ellipses 


INFUT "Semi-major ,axiGyCr Se, bowseO "sek ag tk wee" TH 
a=VAL (2B) os PRINT 
"Semioeminar varia, CeO, to vc) "sek a tk gabe et" VA 
(; : FRINT 
“Tnereament wma joryaxs iso's 28 a CF wks ee" THEN i aeVal, 
: FRINGE 
T “Increment minor waxis'gek s tr skeet" THEN ileVeAl. 
: PRINS 


EN b 


sf TO ns : atatia : beb+ib 
BXFSxtin § ByYKBytIy 
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90 
ey] 
O18 


a THEN 10 ELSE 418 


Control for Cardiods 


INFUT "Cardioid,factor, (-320,t0,520) "928 1: (F 23 


eT Ey 


Hy) og PRIN 
amentyvfactor' ag 2 Fr 


THEN ia=VeAl. (28) 


CksS 

FOR Gt 10 ns & AB aAtLA § SKESKtIK Ff SYBGyYrLY 
GOSUER 1118 

IMEX 1 

IF UNRE Ye" THEN TQ ELSE 69@ 


INEM "Spiral, factor"s2& s LF abe’ THEN @@Val. Crd) oo F 
RANA 

[WFO "Maxdmotim,vanghe! sek og GF gabe" THEN maeVAL Crd) os 
FRING 

(NEU "lie 


Tanentywingfactor' yes a TF gbee'' THEN tamVeal. ¢ 


mein = | TO ne : ataria : Sx ™axdtinx © Sy=eytiy 
GOUSUE 118 

NEXT 

PEOOCNRR dee" THEM LW BL Gk 7 8@) 


Control for Lemniscates 


INEUW! “Lemnigscate,vractor, Charge) "ged os ck gaee'' THEN a 
ee VAY Cr) os INI 
INEUT "DTnerement .tactor "a aé a te eee" THEM dé 


eVENL. Cae) 


CLS 

FOR Get TO nme : a®matia & 
GOSUH 1260 

NE. X | 

LEOOTNE RE Ye" " THEN 1 BELGE 86a 


SMkiX f SyYFByYtLy 


Triangle Draw 


SRULUS Can) ~syrls*SIN Can) 
COS Carn) .O 

CUS Cam) .2etsesli can) 

SUS Car) yo ee eS LIA Cea) 


Fees PUM 
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Rectangle Draw 


Lew C2) og tiery Cl) ery C2) 
recto «ey Chl) 
l=Q OR t@=@ THEN DRAW rx (2) ary C2) 


DRAW re CA) ary C2) 
DRAWR we. wyt te 
DRAW rx Cl) yey Cl) 
KET IRIN 


Ellipse Draw 


LQ40 
LOSQ bk (5 ee 
LW WIVES BH tral y BY 

La7a ai (0 6.3 STEP 
108A U5 Card tax, beSIN Can) +oy 
19 | TASER 


Cardiod Draw 


icl 
4 BY 

TO 6.4% STEP O.1 
Can) ) 

Candbsx yy reSIN Can) toy 
LIEN 


Spiral Draw 


BY 
TO ma Siler Bed 


RAW PX OOS Gard tex y rxeSIN Can) tay 
MEX 1 
ek TURN 


Lemniscate Draw 


SER @. GS 

and) GS 

SCAN +x, ROSIN Cam) tay 
PHOS Car) bax yr RS ON Can) bay 
hE SUM 
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ChexSum Tables 


1a 


BOO = 138 
S70 = 396% 
= R206 


1W4@ : 
1050 
L@OQ x 
107@ = 
1OBG = 
199 = 
LAR) a 
(110 = 
1120 = 
LiS0 
1148 
LASQ 


POTAL. 


ii 


SIW1L47 
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3D-DRAW 


CLASSIFICATION: Interactive Graphics 


Use the cursor keys to move the flashing dot around the screen. Position 
the cursor and press the ‘copy’ key. Having done this four times the 
shape is drawn. To return to the menu press the up arrow key. 

1. Next Frame — advance to the next frame. 

2. Change coordinate — Enter grid reference you wish to change. 

3. Redraw last frame — Redraws without altering anything. 

4. New frame — Restart. 

5. Quit — Exit program. 


PROGRAM 

Variables 

G Generation of grid step 

X(N,N), Y(N,N) — x and y coordinates of grid reference (N,N) 
A(G) Value of grid step 

XNV, YNV New values when changing coordinates 
AG$,T Dummy variables 
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Program Structure 


Lines 

30 — 80 
100 — 360 
380 — 420 
440 — 530 
550 — 1040 
1060 — 1080 


Function/Activity 

Draw routine 

Menu 

Change Coordinate 
Square generation routine 
Initialisation 

End 
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AD ORE 


Draw routine 


ma] GOSUE Sa 
Menu 
el % 
a4) MODE Ios FUR L YO AS SEF ACG) 
AW) PO Noe fF TO A ACG) SER ACG) 
Aa a) ROE Xa Ta YOR = Ty WD 
4) DeW X CN 4 ACG TV), YOR Te Not ACG, 4 
7A RLU XC B44 = Wk YON, TD 
Bu DRAW KCL, S44 CN & ACG), YOON + ACG)IO,7). Lo: NEXT : 
NEXT 
Change Coordinates 
IW Hy 
(Ou I Sk LW 


pF OLR E ya ose THEN GOTO LI@ Fl 
=U) # O@ TO 46 s INK £, Tos FOR N = $ 10 SO : NEXT s N 


* 1 TO 26 2 LOCATE I. do: FRING CHR CLL) os NEXT 
MOM J 

& THEN 1dou 

“OP RARE W.NUMEER 4! 9 Goof PRINT 

PRINT "aha l ad aalE XT APRAME ," 
PRINT "tata da CHANGE ,CO-ORDINATE" 
BRON ak wd da REDRAW, THES W.ERAME" 
PRINT "at atia da aINIEW WP RAMEE" 
PRINT At ate GM 1 

MO Od a GHANGE WAMPIL. T TUDE! 

MZ daa RE OR AW WITH YNEW JAMPL f TUDE" 
YS THEN PRINT ¢ PRINT "QLaAST,FRAT 
TIME bv 
LOCATE 1,42 2 FRINT “COMMAND, ?" 
(NORND GL) * Bo 1 
AS = "" THEN 248 

4 “RUM SPACE CLO) & FEN t 


GOTO 38@ 

THEN GOTO 3a 

THEN KUN 

THEN 10608 

THEN LOCATE 2. 1M 2 oo: PRINT "CURRENT .AMPL f 
H s IMFUT "VANPLETUDE' 9 AMF & LOCATE ia, 1a 

SPACES CAM) os PRINT SFACE$ CS@) 2 LOCATE Lalo oa GOT 


"7" THEN REDRAW = tos GOTO 448 


GOTO 24 


18 


Square generation routine 


INLET "EATERY CO-ORDINATES D4 E 

PRINT " SDINATE"s De", "s Es "IS,CURRENTLY's XCD, Eds 

car hee | 3 Ey Dd 

40a TNF UT ER NEW, VAL WE 

410 X(D, EX) = XNV § YCR4G = 
30) eel) 


+ XNV, YNV 
D) = YNY 


AAO H 

44) LOCATE 1, LS : PRINT "|,FPleage wait,for,va,vbit. | 

4S) FOR f = | : BORDER RRND) # 26 

hyd FOR Nom i A(G) STEP ACG) 

470 XN + ACG + Ld, 1) * CC XIN + ACG), Td) ~ KCN, T) ) 4 2) 


+ KCN, 1) 
ASO) YCN + ACG # 1), T) * CC YUN + ACG). T) = YON, VT) 0 4 2) 
+ YCN, 1 s NEXIS 
tod REDRAW THEN Go Go Lo: REDRAW = @ 
ca | S38 STEP ACG) & BORDER RIND CL) ‘ 
Now | oF ACG) 
Y) + RNDCCL) *# ANF) = AMP 7 ft 


| 
TY) YON, 1) ch CRNDC1) ® ARIF) = AMF 7 @ os NEXT : N 
EX) & BORDER S 2 GOTO Av 


OTM A(6), KI4), (4) 


G 


AC) ee 
ACH) = | 


CL. S 

"RINT "MODE w(40a/ alin ae | 

AE = # : IF THEN 660 
Te eb "OO" THEI : GOTO 718 
TP Ae >! THEN : GOTO 718 
Tr #4 "ee" TEN : GUIO 718 


GOTO oa 

PRIME 'Q"  § AF 

[Ne @, 

Ik Ly et 

BORDER 

CARO OME TUDOR Ao @  ARMB or bs 


A= fog Hoe ADD 

1 VO 4 
TEST CA, &O 
B00) BLOT Ax. By J 
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bea 
Labia 


Lastal 
bled 
V7 2) 
LV 


FOR OL eAY 
FLT Ay bbe 
A= A ob CIh 


FO 1@ : NEXT 

FLAG 

Y (8) » =t) = CENEBY C1)» = 1) 
SY (2) » =) = CINKEY (2) =1) 
EN A 6: 

639 THEN A 
1 THEN B 
399 THEN & 
(67) = 


(HEN 950 2 REM O REY 
"Xatat § Am J 

mall ot AES CE = BPG) 
EXT DELAY 

(180 4 PRINT SPACES C13) 


PRINT 
TQ S80a 
PRINT SPAC 


J 


~i THEN BCI) A ¢ GOT) r PLOT Ay sy 
2 FR #07) + POR DELAY # 1 TO S@@ 2 NEXT ¢ NEX) 
t POR To® 2 10 4: PLOT &(T = 1, CCP = 1) 2 DRAW BCT), 
C1) ¢ NEXT & PLOT BC), CC4) 2 DRAW BO, COL GOTO 

970 

BOTA 798 


CRINND CL) ARB oe CAME ZB) COOK CL 
) ae TQ 

+ CRNO CL) % GIF» CAMP 7 2) ob CC CX 
/ 33) * T) 

CRND OL) IMB om CAMB Ze) oe COON CL 
* 1) 

CRM CE) 8 ATIF) oo CAMP 4 a) ok OCCY 
* 1) 


FREE T CRIN 


End routine 


“Dye y bor yhow! 
EO BAY yd 
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2500 
L9Q7 
eoS8 
609) 
6480 
3788 
700 
1814 
4060 
43x51 
4) 


4 66 
598 
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TOTAL. 


he 
12989 
e47 


Ole 
176 
PAB 


11064 
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3D MAZE 


CLASSIFICATION: Interactive Graphics 


When the program is first initialised you must define a maze and follow 
the prompts. To move, east, west, north or south use the cursor keys. 
To move forward use the ‘copy’ key, also use the copy key to define 
the maze and the cursor keys to move around. To quit press ‘Q’. 


PROGAM 
Variables 


MOVES 
M(N,N) 

X,Y 

ADIR, YDIR 


A,B 
T,N,AS 


Number of moves 

Maze array containing walls 

Your coordinates in maze 

X and Y direction in which you are looking can be 
either —1, 0, or +1 

Position of curor when defining maze 

Dummy variables 
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Program Structure 


Lines Function/Activity 

30 — 160 Main loop 

507 —610 Draw 3D view 

1077 — 3058 Escaped from maze 
5000 — 5200 Initialisation 

5205 — 5407 Define maze 

10000 — 10068 Draw 3D maze 
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Merk 


Initialise 


la USL Std 
Main program loop 

MQ) H 

100 [NEY C1) THEN XDUR = Los YDOIR = @ s INK 4, @ ¢ 
GOSWE Ms 1, 24 

Lie (8)! THEN XDIR = -1 os YDIR = @ : INK 1, @ 
3 G Ys INK 1, 24 

Le TF UNE @) = THEN XDIR = @ : YOUR wed os INK 4, @ ¢ 
GOSUE 2: INK 1, 24 

1 TR UNKEY C2) 1 THEN XDITR = @ s YDIR = 4 os: INK 4, @ 8 
GUSUE SOM s | 1, 24 

Lh) IF INKEY (47) ~L AND X + XDIR « 32 AND X + XDIR = 1 A 
ND Y YOUR « 24 AND Yo + YDIR & 1 AND M(X + XDIR, Y + YD 
TID PREM X om X + XDTR 2 Yom Yo + YOR & INK 1, @ ¢ GO 
SUB SOO : INK Ly, 24 : MOVES = MOVES + 105 TF X # 16 AND 
Yo * 2 THEN GOSUA 1OWO 

a) TF OUMBEY (67) e ed THEN GOTO 20a 

lod GOTO Lae 


Draw 3D view 


MOX + XDIR, Y # YDIR) * OMe THEN MOVE Ly 368 s DRAW 
2, SOB ¢ DRAW G29, BM : DRAW Jy BM & DRAW 1, ckdes og PRE 


XDIR ©» @ THEN GOTO S40 
MCX + YOUR, Yo + YOUR) <3 B22 THEN MOVE 1, 368 5 DRAW 
160, 298 : DRAW 160, 149 ¢ ‘ . 8@ ELSE MOVE 1, 298 
: DRAW 160, 298 & DRAW 1L6@, 149 : DRAW 1, 149 
oh Tr MCX & CYDTR # wb) y Yoe YOUR) <2 THEN MOVE ©4@, 
63 2 DRAW 488, 298 : DRAW 488, 149 : DRAW 648, 80 ELSE M 
QVE 640, 298 2 DRAW 480, 298 : DRAW 480, 149 3s DRAW 648, 
149 
IF YOUR «i W THEN GOTO See 
IF M(X + XDIR, Y + (XDIR * -1)) “> 32 THEN MOVE 1, 368 
: DRAW 160, 298 2: DRAW 160, 149 : DRAW 1, 8@ ELSE MOVE 
1, 2968 : DRAW 1620, 298 2 DRAW 168, 149 2: DRAW 1, 149 
44 [IF MCX + XDIK, Y + XDIR) «% S2 THEN MOVE 640, 368 : DR 
AW 480, 298 2 DRAW 48@, 149 : DRAW 640, 80 ELSE MOVE 648 
» £98 5 DRAW 480, 298 5 DRAW 480, 149 : DRAW 648, 149 
5 TIF MCX + XDIR + XDIR, Y # YDIR + YDIR) « THEN MOVE: 
160, 298 2: DRAW 480, 296 : MOVE lod, 149 DRAW 480, 14 
9 on PRE TURN 
{[F XDIRK «+ 8 THEN GOTO S6@ 
TF MCX + YDIR, Y + YDIR + YDIR) Mé THEN MOVE 168, @ 
98 2 DRAW 240, 268 2 DRAW 248, 186 DRAW 162, 149 FE 
MOVE 160, 268 : DRAWR 8@, @ s DRAWR @, ~74 &: DRAWK 


BO 


4) 
S54 TIF MCX + (YDIR * -1), ¥ + YDIR + YDIR) THEN MOVE: 
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450, 299 2: DRAW 408, 260 5 DRAW 400, 186 + DRAW 480, 14 
9 ELSE HOVE 480, 260 : DRAWR ~80, @ : DRAWR @, ~74 2 DRA 
WR 88, @ 


SOQ IF YOUR «> @ THEN GOTO 57a 
Ses IF MCX + XDIR + XDIR, Y + (XDIR * -1)) <% 32 THEN MOVE 


160, 298 : DRAW 240, 268 : DRAW 248, 186 : DRAW 160, 14 
9 ELSE MOVE 16@, 260 : DRAWR 8@, @ +: DRAWR @, -74 + DRAW 
KR -88, 
564 IF MCX + XDIR + XDIR, Y + XDIR) «3 32 THEN MOVE 480, 2 
98 2 DRAW 400, 26@ : DRAW 400, 186 : DRAW 480, 149 ELSE 
MOVE 480, 260 : DRAWR -84, @ s DRAWR @, -74 : DRAWR 80, 


aed 


FoM¢CX + XDIR + XDIR + XDIR, Y + YOIR + YDOIR + YDIR) « 
2 THEN MOVE 240, 260 : DRAW 400, 260 +: NOVE 240, 186 
s DRAW 400, 186 2 RETURN 

TF XDIR <> @ THEN GOTO S8o 


IF M(x + YDIR, Y + YOIR + YDIR + YDIR) «<* 32 THEN MOVE 
240, 260 : DRAW 288, 238 1 DRAW 288, 207 : DRAW 240, 18 
6 ELGE MOVE 240, 249 2 DRAWR 48, W : DRAWR @, -31 3 DRAW 
R48, @ 
S74 TF MCX + (YDUIR # =1). Yo# YOUR + YOIR + YDIR) «> 32 TH 
EN MOVE 400, 2680 : DRAW 352, 238 1: DRAW S52, 2 : DRAW 
408, 186 ELSE MOVE 400, 238 1 DRAWR -48, @ + DRAWR @, 3 
1 : DRAWR 48, @ 
IF YDIR «> @ THEN GOTO S9@ 


TF MCX + XDIR + XDIR + XDIR, Y + (XDIR * -1)) 2 
EN MOVE 240, 268 : ORAW 2868, 238 1 DRAW 288, 207 
€40, 186 ELSE MOVE 248, 2538 2 DRAWR 48, @ : DRAWR a, id 

: DRAWR ~48, @ 


4 IF M¢X + XDIR + XDIR + XDIR, Y + XDIR) <3 32 THEN MOVE 
400, 260 : DRAW & 238 2 DRAW SG2, 207 « DRAW 400, 18 
6 ELSE MOVE 400, : DRAWR -48, @ : DRAWK O@, “Sil 2 DRA 
WR 48, @ 


S98 TF MCX + XOIK + XDIR + XDIR + XDIR, Y + YDIR + YDTR ey. 
DIR + YOIR) <% 32 THEN MOVE 288, Bo: DRAW 352, 28 2 M 
OVE 288, 207 : DRAW 352, 207 : RE TURN 
TF XDIR «+ @ THEN GOTO 600 
[F MCX + YDIR ¥Y + YDIR + YDIR + YDIR + YDIR) 
-N MOVE 288 7 s DRAW 320, 227 : DRAW S20, 2 
E MOVE 288, 227 2 DRAWK 


8, 208 ve, Os DRAWR @, 
: DRAWR « » @ 
S94 IF M¢(X + (YDIR * -1), Y¥Y + YDIR + 
* 32 THEN MOVE BS2, 237 2: DRAW 2 ry DRAW 
s DRAW 3S: 208 ELSE MOVE Ae ry DRAWK “So 
RQ, ~6 : DRAWR Be, @ 
608 IF YDIR <> @ THEN GOTO 618 
OWS TF MCX + XDIR + XDIR + XDIR + ROL y+ 
* 82 THEN MOVE fares 3 DRAW 2a7 os 
: DRAW 288, 208 288, : DRAWR 32 


@. “6 : DRAWR ~. 
TF MCX + XDIR + XDIR + XDIR * XDIR, Y + 
: E vA ve / DRAW 


XDIR) 


5a0 TO 700 STEP 1a 
1 D2 LAG, TT, 18, 15 
1Q8B NEX Nos WEXT T 
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1090 MODE @ 


1100 LOCATE 4, 10 : PEN 7 : PRINT “CT.TOOR YOU" 

111M LOCATE 4, 12 2: PEN 4 2 PRINT MOVES; "MOVES," 

1120 FEN 1 

1130 FOR T = 1 TO 3000 : NEXT T : GOTO Sa1a8 

3Q0W CLS 2 PRINT "ACCI. eee eee ene eee ee CONTINUE" 


SQIQ PRINT "JOR. n een nen e een ne newer eRESTART" 

3020 At = INKEVYE : IF AS = "" THEN GOTO 3020 

BQ fF Ag = "CC" OR AS = "eC" THEN GOSUB SOQ : GOTO 108 
3040 TF AS = "R" OR AS = "rer" THEN RUN 

3050 GOTO 2020 


Player escaped from maze 


SQQO : 

SOWS DIM M CAB, 24) 

S@1@ MOVES = @ 

SW20 xX = 16 

SOSO Y = 25 

SO35 X%XDIR = B 

S@237  YOIR = =1 

S040 MODE 1 

O50 INK @, @ 

S060 INK 1, 24 

5Q@70 KBORDER @ 

S080 PRINT "DEFINE .MAZE?, (Y/N) " 

SQ90 AX = INKEYE : IF Ag <> "N" AND AS C> "VY" AND AB oy Ny" 
AND A# «> "Mn" THEN GOTO Sa9o 

S11 IF As = "N" OR AS = "MN" THEN GOTO 108 


eat eT om 
S140 FOR N = 4 
Si6S MN, T) = 
wh7M NWEXT N 
Si8Q NEXT 7 
SAS Mle, 23 4 
Si87 Mile, 2) ™ Be 
S190 A * 16 


TO 24 


ee 


Sige FOR Toe 2 TO Shoes MCT, 1) @ 154 s MCT, 24) = 104 4 NEXT 
1 

SIGs FOR fo = @ 10 235 3 rel, T) = 149 2 MCS2, T) = 149 : NEXT 
1 


SI94 bcd, 2) = 194 s MCSA, 1) = 19S 2s MCL, 24) = 195 2 MCR, 
24) = 192 

Hos 25 

GOSUH 10000 

LOCATE 4 

PRINT "%" 

LOCATE A, 

PRINT CHRE(M (CA, BD) 

A = A + CTINKREY (8) 
TF A > BL THEN A = 
[F A « @ THEN A = 
A= BH + (CINKEY (@) 


—- (CINKEY(1) > =1) 


- CINKEY(2) > ~1) 


" MCA, BD = % THEN MCA, EB) = 


~L THEN FOR To = @ TO 24 ¢ INK 1, Tos SOU 
21S : WEXT To: RETURN 
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FI9D 

1OOWBA 
10010 
1Q020 
10020 
10048 
18050 
10060 


: 

FOR T = 1 TO 24 
FOR N= 1 TO 32 
LOCATE N, T 
PRINT CHR#¢ MCN, 
NEXT N 


NEXT T 
RETURN 


Initialisation 


T)) 


ChexSum Tables 


37 bo 


&7 oe 
8177 
1443 


7347 
788 
46853 
1472 
BQA99 
BOVE 


684 

618 
10088 
181i 
1Q20 
13 
1040 
LOSG 
1860 
1878 


He OR 


Hof 


fi 


HOH 


# 


HOB BOR OB G 


POS 
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4 
S165 = 
S17 = 
S186Q@ = 


HER H @ Ho & 


HEH R ER HOS 


# OH 


1WVBA20 = 
1GW4Q = 
1WVSQ = 
LQW6G = 


TOTAL = 


SOSA 7 


SPACMAN 


a. 
| ui as 
CO eesecaeeees GD +e EINER. 8 b Milied 


CLASSIFICATION: Time-limit Game 


The object of the game is to eat as many of the bits of food the time 
limit. Watch out for grumps he'll make a nice meal of you! 


PROGRAMMING SUGGESTIONS 


The game could be made faster but would be too fast to play! There 
could be more bits of food on the screen or the time limit could be 


altered. 
Use ‘A’ to move up, ‘Z' to move down, ‘comma’ to move left and 


‘period’ to move right. 


PROGRAM 

Variables 

SCORE Players score 

CREEPX, CREEPY Monster's co-ordinates 

MANX, MANY Player's co-ordinates 

OBJECTS Number of objects gobbled 

TIMER Seconds remaining 

A,B Random column and row 

FLAG Has the monster hit an object 

C1 Counter for alternating colours for ink 2 
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Program structure 


Lines Function/Activity 

18 —25 Front Screen and Initialise Game 
60 —120 Initialise screen 

160 — 300 Main Loop 

348 — 380 Player hits object 

420 — 460 Game over 

470 — 490 Print seconds 

3000 — 3010 Alternate Ink 2 Colours 
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SFACMAN 


Front screen and initialise game 


a MODE 1 : INK @, @ + INK 41, 15 2: INK 2, 18 2 INE 3, 24s 
& RDER @: PAFER @ : FEN 1 


1@ ‘EN Sos PRINT SPACE# (16) 5 "SFACMAN" 

12 9 s PEN Lo: FRINT "Objects,to,qobble :,"% 3: FE 
PRINT "wane § CHRE C150) 

14 iS o: PEN do: PRINT "Creepy.monster,to,avoid iy 
SINT CHR (2 

16 20,2 GOSUB 30a 

V7 : SYMBOL AFTER 150 : SYMBOL 190,60,66,155, 189 
15 yO 4 6 

a) 10,20 : PEN 1 os PRINT "Hity"s © PEN 3 s FRINT "E 

TER"; 3 FEN 1 os FRINT "“,to,Begin" 
es TF INKEY (18)«@ THEN 25 
Initialise screen 

3Q 

60 

7 : CREEPY = 17 : MANX @ 2@ 2 MANY @ 12 2 OBJ 

Ba LOCATE 1, 25 8 PEN £ os PRINT "SCORE. we neuen neunnennnene 


a TIME. ewan eeee” &§ PEN 1b 

90 FOR T = 1 TO 20 

1Q@ A = CINTC RNDCL) * S30 4+ 3S 2) 2 B= CINT(C RNDCL) * 20 + 2 
)os IF TEST(C A * 16 ~ 8, (25 - BD) * 16 + B) OR (Ax 2B 
AND Boe 12) = 2 OR (A = 2S AND BR = 17) THEN GOTO 108 ELS 


BE LOCATE A, Bos PEN 2: FRINT CHR® (150) 
11@ s REN 1 
a@ = 43 1 EVERY SQ@,1 GOSUR 478 
Main program loop 
130 H 


162 Dt 1. ATE MANX, MANY = PRINT "\" 
aK 


17 eo) THEN MANX = MANX + Joa TF MANX » 38 T 

180 IF EE # om THEN MANX = MANX = do: IF MANX 4 2 TH 
EN MANX = 3¢ 

198 IF INKEY (71) * -1 THEN MANY = MANY + 1 os IF MANY Y 


HEN MANY = 2 

202) IF INKEY (69) > =1 THEN MANY = MANY ~ 120 2 IF MANY « 2 TH 
EN MANY = 23 

210 IF TEST(MANX * 16 ~- 8, (25 - MANY) * 16 + 8) @ 2 THEN G 
QSUR 34a 

22 LOCATE. MANX » MANY : FEN 3 : PRINT CHR# (249) 


238 X, CREEPY « PRINT "4's 2 IF FLAG THEN FEN @ 
" CHR (8) 3 CHR CLSQ) 

240 = CREEPX + ¢ (MANX < CREEFX) - ( MANX > CREEPX) 

ed) CREEPY + ( (MANY «< CREEPY) ~ ( MANY & CREEFY) 
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eo’ (FO TEST CCINT © CREEFX 2 * 16 = 8, (25 = CINT( CREEFY ) ) 
* lo + 8) = 2 THEN FLAG = 1 ELSE FLAG = @ 
LOCATE CF 


Player hits object 


1,1@8,10.5 : OBJECTS = ORJECTS + 1 
: = 20 THEN FOR T = 100 TO 4000 STEF 180 : SOU 
ND a FT, 10 2 NEXT : GOTO 68 


PRINT SCORE s FEN 1 


Game over 


i220 TO 400 STEP @5 s SGUND Lyi gl@,dS, 2.8 2 NEXT 
TO SOQ : NEXT Toe LOCATE MANX, MANY : FRINT © 


@: SPEED INE SS. S os LOCATE 2a, 25 2 PEM Uh 3 
PRE 
MO 2OUO s NEXT | 


460) RUN 


Display time in seconds 


46S 
470 
48Q) 
ADD 


TIMER ~ Loos 


CS eo 2 FRINT TIMER 
2 @ THEN GOT( 


Alternate Ink colours 


clet THEN cl=@ : TNE 2,26 : RETURN 
s INE 2,18 8 RETURN 
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ChexSum Tables 


os = 
1Q@ = 
1am 
lq = 
16 = 
17 = 


20 


Ba 


AQ 
60 = 
70 = 
BQ = 
GQ = 
100 = 


Hg HHH DT HR H BOR HOE 


110 = = 
120 = = 
13Q = A Sty 


16Q = = 2188 TOTAL = 126808 
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U.F.O. 


CLASSIFICATION: Shoot-up Game 


Chase the retreating fleet of U.F.O.’s in your special astral fighter 
equipped with rockets. You will eventually leave Earth if you don’t crash 
into the landscape or a U.F.O. and, when you see the massive planet- 
ship, your time is running out. 

Use ‘A’ to move up, ‘Z’ to move down, and SPACE to fire. 


PROGRAMMING SUGGESTIONS 

You could increase the number of U.F.O.’s and add more obstacles. 
You could also increase the speed of the game this would keep you 
on your toes. 


PROGRAM 

Variables 

UFOX, UFOY UFO Co-ordinates 
JETX, JETY Jet's Co-ordinates 
ROKX, ROKY Rocket’s Co-ordinates 
ADDY Amount to add to JETY 
SCORE Player's score 

JET$ String for Jet 

BLANK$ String to blank jet 
l,J,K Temps 
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Program Structure 


Lines 

10 — 130 
140 — 180 
190 — 250 
260 — 340 
358 — 450 
460 — 530 
540 — 640 
650 — 760 


Function/Activity 
Initialise 

New round 
Main loop 

Move rocket 
Move Jet 

Move UFO 

Hit UFO 

Game over 
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UFO 


Las 
140 
se] 4) 
160 
178 


99Q 
Leow 


Initialise Game, UDG's and strings 


MODE 1 os INK @, 
SYMBOL 248, @, 
5 ay 255 4 127, 


SYMBOL. 


oo INK 3, 24 
: SYMBOL 241 


: SYMBOL 243, 246, 


» 138, 8, O@ :s SYMBOL 245 
54, 255 ie 
SYMBOL 246, 4, Ze S2 
SYMBOL 247, 64, 4, O@, 145, @, 36, BO, Ws SYMBOL 248, 16 
» WO, 8, 23, 2, 4, 
SYMBOL 249, 2, O, 72, 
4, 8, @, WO, 130, 16, 
70, 84, 40, 153 
L! >) = CHRE( 246 ) 
>) @ CHR#C 11) + CHREC 247 ) + CHREC 10) + CH 
) + STRING#( 3, 8 ) + CHRE( 248 ) + CHR#E( 10) + 
CHRE( 230 ) 
3) 
) 


: SYMBOL 20, 1, 6 
53, 40, 84, 170, 1 


EXPL#( 3) = "4" 
4) = CHRE( 11) + CHR®( 32.) + CHRE( 1) + CHR 
.. ‘ 


+ STRING#C 3S, 8) + CHRE( 22 + CHR#¢ 10) + CH 


JE Ts = OCHRE ¢ 240 ) + CHRE( 242 ) + 
(2, 8) + CHREC 241 ) + CHRE( 245 
BLANK = CHR ¢ 2) + CHRE( 32) + 
C2, 8 ) + CHREC 32) + CHRE( 32) 


CHR#( 10 ) + STRINGS 
) 
( 


CHAE ( 10) + STRINGS 


New round of game 


3 

WFOX = 10 2 UFOY = 12 

JETTY m 18 : ADDY = 1 
: BORDER @ 


Main program loop 


GOTO 10a2 

GOTO 2808 

GOTO S008 

IF INKEY( 69 ) » ~1 THEN ADDY = -1 ELSE IF INKEY( 71 ) 
* 1 THEN ADDY = 1 

IF INKEY( 47 ) = «1 THEN S1@ 

IF JETX » 326 OR ROKX <> @ THEN S1Q@ ELSE ROCKET = 1 : GO 
TO S1Q@ 


Move rocket 


[F ROCKET = 1 THEN ROCKET = @ : SCORE = SCORE ~ S : ROK 
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LOS 
1W10 
Lad 
18.340 


LOS 


1a4 
LOS 


3998 
4000 


4Q10 


4W20 
4Q2Q 
4848 
4QSa 
4Qo2 
47a 


X = JETX + 3 : ROKY = JETY : GOTO S22 
2 = @ THEN S20 
aX, RORY 2 PRINT "\" 

» ROKX + 2: TF ROKX > 39 THEN ROKX = @ : GOTO Sa 


IF JEST C 16 * RORX ~ 16, 415% - 16 * ROKY ) = 2 THEN 400 
0 


to TEST( 16 * ROKX, 415 ~ 16 * ROKY ) os IF I = @ THEN 
4000 ELSE IF 1 = 3 THEN LOCATE ROKX + 1, ROKY : FRINT "y 


FIN 2 3 LOCATE RORX, ROKY 2: PRINT CHRE( 244 ) 
GOTO S2@ 


Move jet 


2 JETX, JETY : PRINT USING "&"3 BLANKS 
JETX + 1 2 JETY = JETY + ADDY 

39 THEN JETX = 1 : UFOX = 10 

IF JETY < 1 THEN JETY = 1 2 ADDY = { ELGE IF JETY » 22 
THEN 9a08 

[F TEST( 16 * JETX = 16, 415 ~ 16 * JETY ) <> @ THEN 90 


l6@ * JETX, 415 ~ 16 * JETY ) «> @ THEN 920 
16 * JETX - 16, 399 ~ 16 * JETY ) <> @ THEN 9@ 


tF TEST C 16 * JETX, 399 - 16 * JETY ) «<> @ THEN 9000 
PEN to: LOCATE JETX, JETY ¢ PRINT USING "&"s JETS 
GOTO S3e 


Move U.F.O. 


IF UFOX = @ THEN S40 

PEN So: LOCATE UFOX, UFOY + IF RND( 1) «= @.93 THEN FRI 
NT "," ELSE PRINT CHR#(¢ 251 ) 

UFOX = WFOX + 10 2 IF UFOX » 39 THEN WFOX = @ : GOTO 84a 


IF RNDC 1) < @.8 THEN UFOY = UFOY + 1 ELSE UFOY = UFOY 
- 4 
(F UFOY & 1 THEN UFOY = 1 ELSE IF UFOY » 22 THEN UFOY = 


2: LOCATE UFOX, UFOY : PRINT CHR#( 248 ) 
GOTO S40 


Hit U.F.O. 


« 2 THEN UFOX = 2 ELSE ([F UFOX » 38 THEN UFOX = 
@ THEN UFQY = 2 ELSE TF UFOY * 22 THEN WFOY = 


1 10 4 : LOCATE UFOX, UFUY : PEN 3 
7, 2 * IT: SOUND 1, 1, 4%, 15, 1, 1, 3 
USING "&"s EXPLEC Lt) 

FOR J = 1 10 38@ + NEXT +: NEXT 

INK 3, 24 

SCORE = SCORE + 1@@ + CLS : PRINT "SCORE, :4"% SCORE 


38 


4080 
48908 


8990 
PQQ 


FAVS 
9B18 
FO20 
FASO 
9048 
958 
9068 
9B7@8 
IDB 
9098 


FOR Lo = 1 TO 10@Q : NEXT 


ROKX = @ : GOTO 140 


Game over 


me 


PEN 3 : FORK = 1 TO 3 


FOR I = 1 TO 4 : LOCATE JETX, JETY 
1, 


SQUND 1, @, 12, 15, 1, 
PRINT USING "&"s EXPL 
FOR J = 1 TO 7@ s NEXT 
NEXT 3 NEXT 

CLS 2b 
LOCAT 


( 


I 


ATE 10, 2 : FRINT 
10: PRINT "PRESS.A.ZRKEY.FOR ANOTHER GAME" 


Ce K 
) 


"YOUR,SCORE.WAS +," 


’ 
IF INKEY# = "" THEN 9090 ELSE 9088 
IF INKEY# = "" THEN 9890 ELSE RUN 


ChexSum Tables 


10 
Fa’) 
3Q 
4a 
SQ) 
60 
70 
BW) 
90 
108 
11 
120 
130 
135 
14a 
15@ 
14@ 
17 
1) 
Y10 
S20 
5.30 
S40 
SQ 
SO 
990 
1000 


# eR 2 EH 


HR BG 


Leg 


6603 
B81 
S771 
S184 
AaB 1 
@ 
1478 
2128 
$48 
S13 
0 
4s 
47 
449 
466) 
1694 
4082 
1) 
6857 


fob eu 


He # HBO 


@aiog i ae 


ho ho OB 


HER HE 
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{TF JETX * 38 THEN JETX = 38 ELSE IF JETY « 2 


4088 
4018 
4O2Q 
4Ord 
4042 
4058 
4860 
4078 
408 
4090 
8990 
FOVB 


FAA 
IGA 
9062) 
F770 
FAB 
FOI 


TOTAL # 


THEN 


BHERHB SE E 


HES SE 


zou 


HOHOR 


JETY 


: SCORE 


4135 
4107 
2386 
1458 
1428 
1454 
SQ4 

S198 


L77116 
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ROBOT RAIDERS 


CLASSIFICATION: Shoot-up Game 

Swarms of suicidal robot ships are attacking your gun ship. You must 
use the rotating cannon to blast the raiders before they reach the ship. 
Some of the robot ships disappear at random, so they are worth more 
points than others. The score is increased for hits and decreased for 
misses, so watch that wild shooting. 


PROGRAMMING SUGGESTIONS 


To increase the difficulty of the game try increasing the speed of the 
raiders and setting a kill distance for the raiders. 

Use ‘I’ to rotate the laser anti-clockwise, and the spacer bar to fire 
the laser. 
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PROGRAM 
Variables 


CRASH(4) 

STARTX(4), STARTY(4) 
DRN 

EXIST(4) 

LASERX(4), LASERY(4) 
LSX(4), LSY(4) 
LAS$(4) 

LASBL$(4) 

SHIPS 

SHIPX(4), SHIPY(4) 
SPDX(4), SPDY(4) 
SCORE 


FINX, FINY 
BLANK$ 
EXPL$ 

I,J 
Program Structure 
Lines 

10 —319 
320 — 400 
100 — 1030 
1050 — 1080 
2000 — 2140 
3000 — 4020 
5000 — 5020 
9000 — 9080 


Required sum of Co-ordinates to give crash 
Starting Co-ordinates for each ship 
Direction (1-4) of Laser 

Existence of each ship 

Four laser positions 

Pixel Co-ordinates of Laser positions 
Laser String 

String to blank laser section 

Ship enemy string 

Ship Co-ordinates 

Ship speeds 

Player’s Score 

Finishing Co-ordinates pixel for Laser 
To blank out an enemy ship 
Explosion 

Temps 


Function/Activity 
Initialise 

Main loop 

Move ships 

Fire Laser 

Hit 

New Ship 
Update Score 
Game over 
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ROBOT RATOERS 
Initialise game 
10 MODE 1 os INK @, 15 s INK 1, 23 2 INK @, 2s INK 3, @ 5 
DEG 
20 SYMBOL 240, 16, 48, 96, 96, 224, 193, 226, 254 : SYMBOL 
241, 231, 199, 195, 224, 96, 96, 48, 16 
3O SYMBOL. 2, 8, 12, 6, &, 7, 131, 71, 127 8 SYMBOL 243, 
231, 227, 195, 7, 3, 3, 6, 4 
4Q SYMBOL 244, 1, 1, 1, 3, 15, 12, 27, 251 s SYMBOL. 243, 2 
Si, 27, 12, 18, 35 ly 1, 1 
SQ SYMBOL 246, 128, 128, 1248, 192, 240, 48, 216, @23 3: SYM 
BOL 247, 223, 216, 48, 240, 192, 12s, 128, 12 
6@ SYMBOL 248, 128, 4, 64, @, 144, 3S, 40, 144 2 SYMBOL 249 
+ 67, 1 68, 16, 68, @, 128, 16 
70 SYMBOL 250, 4, @, 129, 16, 6, 129, 146, 34 § SYMBOL 251 
ans 16, 65, @, 8, @, 129 
BQ) “om (HIRE ¢ Q@ ) + CHRAC 242 ) + CHREC 10 ) + STRING 
8.2 + 6 ( 24) ) + CHRE( 243 ) 
90 E = CHRE( 248 ) + CHR#( 250 + CHRE( 10 ) + STRING 
#0 2, @) + CHREC 249 ) + CHRE( 251 ) 
18@ LAS#¢ 1) = STRINGS 2, 206 ) : LAS#( 3S) = LAG#eC 1) 
110 LAGS#EC 2) = CHREC 26 ) + CHREC 10 ) + CHREC 8 ) + CHRE 
( 206 ) : LAS#( 4) = LASEC 2) 
120 ( 1) = STRING#( 2, SB) : LASELSC BS) = LAGELE ¢ 
(en 4) @ ) = OCHRAC S20) + CHR#E( 10) + CHREC 8B) + CHR 
s LASBL&C 4°) & LASBL#( 2 ) 
140 ( 1) = 20 : LAGERX (¢ 2) #* 19 s LASERX( 3) = 2 
QM: LASERX( 4 ) ™ Ba 
LQ LAGERY ¢ 1) : LAGERY ( 2) # 13 ¢ LAGSGERY( & >) = | 
S 2s LAGERYC 4 13 
160 x ba ~5X¢ 3 ) = 320 8 LSXt 2) = 287 : LSX¢ 
170 ceo a LOY 2) = (Dt os LGY¢ 4) = 191 & LSY¢ 
{8a SFDX¢ t >) = @ : GFDX( 2) = to: SFDX( 3B) = @ 
a SPDKC 4) we md 
19 SFOY¢ 4) = Los SFOY¢ 2) = @ : GFDYC 3B ) = =—1 8 SFEDY ( 
2Q0 . : CLS s BORDER 15 
210 BLANK # = STRING#( 2, 143 ) + CHRE(C 18 ) + STRING#( 2, B 
) + STRINGS ¢ » 148 ) 
. tos FOR J 170 40 5 FOR J * 15 TO 14 5 LOCATE T, 
PRINT CHREC 148) 8 NEXT & NEXT 
POR Low 20 TO @1os FOR J = 1 TO 28 : LOCATE I, J : PRIN 
( CHREC 14.5 ), 8 NEXT =: NEXT : LOCATE 1, 1 
24Q PEN @ : PAPER Los LOCATE 19, 12 2 FRINT STRING#( 4, 206 
) 
LUCATE 19, 13 2 FRINT CHRE(¢ 206 Ds “vals CHRE( 206 ) 
LOCATE 19, 14 2 PRINT CHR€E( 206 de “vals CHRE( 206 ) 
1a TE 1S : PRINT STRING#( 4, 206 ) 
REIN ICATE 20, 1 
PRINT CHR 244 ) + CHREC 246 ) + CHRE(C 10 0 + STRING ¢ 
Sy 8 ) + CHRE( 245 ) + CHREC 247 ) 
MOQ FOR Fo bL 10 4 3s EXIstT¢ £f ) = Los NEXT 
51a DARN = Jo LOGATE LASERXC DRN >, LAGERY ¢ DRN ) os PRINT 
LAS © DARN) 
S12 EVERY 30, 1 GOSUB 400a 
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SAS SHIFX ¢ s GSTARTX( 1) : SHIFX ¢ 3 8 
TART X ¢ GSHIFK( 3) = 2¢ STARTX (ch : SH 
IFxX¢ 4 STARTX( 4 ) = 4 

S17 SHTFY ¢ STARTY¢ 1) SHIFYC 2) 4 ST 
ARTY ¢ SHIFYC 3) = ° STARTY( ov) : SH 
IFYC 4 STARTY(C 4 ) = 


S19 CRASH ¢ s CRAGSH( 2 ) : CRAGSH( 3) = 3G a 


RASH( 4) = 6 


Main program loop 


FOR SF = TO 4 
TF INEKEY ¢ 5) 2 =~ THEN LOCATE RX( DRN ) 4 LAGERY ¢ 


DRN >) : PEN @ : PAPER 1s AS#C DRN Ys DAN ( DF 
N MOD 4) + to: LOCATE LASERX(C DRN >, LASERY(C DRM ) a FR 
TINY LASELAC DARN > 


) e ~t THEN GOSUE 2aUd 


Erase ships 


= @ THEN RETURN 

t LOCATE SHIFX( SF), SHIPY( GF) 

INT USING "S's BLANKS 

SHIPX( SP) = SHIPX( SF) + SPDX( SF) a GHIPY( SF) = 
SHIFY( SFO + SFDY ( SF) 


Move ships 


1040 3 
WSO FEN @ ¢ LOCATE SHIFX( SF o>, SHIFY( SF ) 


1Q60 PRINT USING "&"y SHIPS 


LQ7Q IF SHIFX( SFO) + SHIFY(C SF >) = CRASH( SF) THEN 9@@0 
1080 RETURN 


Fire Laser 


GOSUR SOOO « HIT = @ s [F DARN = 1 


EXT 
C DERN : GOTO 2100 
HiT = s FINX = 16 * SHIFX( DRN >) ~ 16 


St DRN >) = @ THEN FINX = ( DRN = @ ) * 204 + Lx 
) 
{ 
1 


GOTO 2180 

FINX # LSX¢ DRN ) 

IF EXIST¢ DRN ) = @ THEN FINY = ~( DRN ~ 3 ) * 160 + LS 
YC DRN ) : GOTO 2100 

HIT = tos FINY ® 416 - 16 * SHIFY( DRN ) 

MOVE LSXx¢ DRN >, LSYC DRN > 

DRAW FINX, FINY, & 
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SIIB 
OO 
4010 


es) 


B990 
PABA 


FQ10 
20 
FB20 
F704 
FOB 


FD6Q 
907 
97GB 


LOW. Sy 1S 
CC DREN 9, LGYC DRN >, 1 
« f THEN GOSUE 2000 


FE TUR 


Hit target and increment score 


: SCORE + 5O : GOSUAR SOW : LOCATE SHIFX( DERN), 
DRN ) 

PRINT USING "Si"; EXPL# 

@, 25, 18, 1, ty 15 

IFX( DORN), SHIFY(C DRN ) 

INT USING "S's BLANK 

“DRN) = 


RE TURN 


New ship 
Hy 
Th = ( TA MOD 4) + Los CF EXISTC Tl ) = 1 THEN RETURN 
SHIFX¢ Til ) = STARTX( Til 0 ¢ GHIFYC T1 >) = STARTYC Tl ) 


EXIST ¢ Tl >) = Los RETURN 


Update score 


: FEN to: FAPER @ 
sa"s SCORE : FPAFER 1 


BRING 
RE TURIN 


Game over 


i 
LOCATE GSHIFX( SF), SHIFYC SF) : FRINT USING "&"s EXPL. 
$s 0 @, ao PRINT USING "&"s EXPL & FOR Jom 1 7 


QO 180 STERF & 
INK 1, INTC RNDC 1) * 26 ) 
SOUND 1, ABS( COS¢ I) + SINC IT) * 100), 15, 15 


2 OLS : PRINT “YOUR .SCORE ,.WAS 
1M: TF SCORE «© 10 THEN FRINT 
100 THEN FRINT JE a, EL. SE. ) 

INT "GOOD!!!" ELSE PRI a BRAND MAST ! 

LOCATE 6, 20 2 FRINT "PRE aAaKEY 4 FOR WANO THER 4 GAME" 
IF INKEY# = "" THEN 9080 ELSE 92@7@ 

IF (NREY# = "" THEN 9080 ELSE RUN 


45 


ChexSum Tables 


18 


- SiS = 7691 2120 = 
20 = 317 = 7641 2130 = 
AQ = S19 = B62i 2L4Q) x 
4Q = 328 = @ 2999 = 
SQ = 325 = 1866 200Q «= 
6Q = $30 = 10424 SQ1IQ = 
7Q = 40 = 456 SQ20 = 
BQ = 350 = 1844 : = 
9Q = 390 = 176 au 
LQ = 400 = 292 bal 
110 = 990 = @ = 
120 = 1000 = 1901 a 
130 = 1010 = 2959 = 
14Q = 1920 = 1188 = 
150 = 10320 = 6380 bad 
160 = 3265 1040 = @ bad 
= 3769 1050 = 2326 a 
= 4116 1060 = 1128 = 
S28 1070 = 3820 bad 
= 874 1080 = 201 mm 
= S795) 1999 = @ “ 
= ADA 2000 = 4674 me 
=m 4139 2O1O = 1529 ad 
« 17708 £020 = 4819 - 
ee ROS 2030 " 2B74 a 
= 2006 2040 = VBL bad 
m1 SOS 2050 = 1527 ae 
oe O44 2060 = S177 = 
we A7Pb 2070 = FOL2 om 

mm 2241 2108 = 1927 

= 4161. 2110 = 1186 
ase | 2115 = S67 TOTAL = 


ia 
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SHOOTING GALLERY 


CLASSIFICATION: Target practice game 


Step right up and have a go! Only $1.90 for five shots — and you get 
five shots free! 
Scoring: 
front ducks 2c 
middle ducks 50c 
crazy bird $1.00 
Use the SPACE bar to shoot at the flying targets. 


PROGRAMME SUGGESTIONS 


The speed of the birds can be altered in lines 1000 — 1089. Or try 
putting an extra row of birds with different values to add some variety! 
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PROGRAM 


Columns required for a hit 
Hit bird string 

Amount to add to Player's account 
String to blank birds 
Strings for each bird 
Co-ordinates of birds 
Phase (1-2) of each Bird 
String for a miss 

Player’s account 

Speeds of birds 

Bird number 

Number of remaining shots 
Which bird hit? 

Temps 


Function/Activity 
Initialise variables 
Set up screen 
Main loop 

Move birds 

Fire Gun 

Update Account 
Alter phases 
More shots 


Variables 
HEAD(5) 
HITS 

ADD 
BLANK$ 
BIRD$(5,2) 
BIRDX(5), BIRDY(5) 
PHASE(5) 
MISS$ 
ACCOUNT 
SPD(5) 

BD 

NS 

HIT 

leds T4 
Program Structure 
Lines 

10 — 380 
400 — 510 
530 — 610 
1000 — 1080 
2000 — 2100 
3008 — 3030 
4000 — 4030 
5000 — 5030 
9000 — 9040 


Game over 
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SHOOTING GALLERY 


Initialise variables 


1@ MODE 1 os INK @, 13 : INK 1, @ : INE 2, 6 : INK 3, 1 
2Q SYMBOL AFTER 220 : SYMBOL. 220, 128, 64, 96, 56, 28, 15, 
7, Ros SYMBOL 221, 1, @, @, @, @, @, @, @ 
3@ SYMBOL 222, 1, 2, 6, 28, S6, 176, 224, 192 5 SYMBOL 223 
we 64, Q, @ , » @, @, B 
4G @, @, @ 1, 7, 15 : SYMBOL 225, 25, 5 
@ 
SO : MO, Oy, Wy 128, B24, 240 2 SYMBOL B27, 
132, 76, 4, 4, 4, O@, B, @ 
OO SY MBOL. 228, OO, BO OW, BW, Sy 14, 24, 12 4 SYMBOL. 229, 6, 
70 32 os SYMBOL 23 @ 
BW) && 2 SYMBOL a 
IQ 2935, 2595 4° SYMBOL 234 
Hy 
LO 4 3s SYMBOL 237, 63, 2 
L1@ 24, 48 : SYMEOL 239, 
Lit 240, 1) ’ ri 0, @, 27, 255, 255 s SYMBOL 241, 
S11, S31, 63, 124, 2 
1.30 a, O, OW, OB, 1eB, LW, 2Se2 os SYMBOL 243 
ety, 192, Oe BW, WO, B 
140) LAO, 200, 96, 49, 2S, 45, 75 a SYMBOL &@ 
AS 19, Sy 66, 4, OS, 144, 4, 4 
180 SYMBOL 246, Ly, 35, 6, 140, 216, 177, B24, 2Ol s SYMBOL. 
@€47, 196, 144, 66, Se, 4, 18, Lee | 
Low SYMBOL 248, 96, S32, S22, B32, 32, . S22, S32 2 SYMBOL 249 
, S2, 32, 48, 48, 48, 48, 112, 36 + SYMBOL YSQ@, 48, 36, 
Say Sb, 68, 68, 68, 62 
170 SYMBOL 291, 255, 285, 255, 3, 207, 195, 129, 82 
18Q HiT = CHREC 244 ) + CHREC 246 ) + CHREC 10 ) + STRINGS 
( 2, 8) + CHREC 245 ) + CHREC 247 ) 
PQ RLANE AR (HBR Co ye CHR ¢ ) + CHRE( 10) + STRINGS 
3) + C “ARS | ( ) + Se) 
ea /41"4) 4 3 ae HEE C4 + CHRO 222 ) + CHREC 10 ) 
as TR NG# Com, Be e+ CHEE C 2241) + CHR ¢ gn) 
1B {x [RDS : st CHAE ( 224 + CHRE( 10) 
. 8) + CHR iN ) 
eared) ce ae a CHRAC 1) 
= ig ) 
Pl) CHREC 1M) 
: 3) 
oe eo) 
“ ES + CHR (¢ ) + CHREC 1A) 
+ | ke H Neue (Bye t ZT ) + CHR BAD 
270 HIKDGSEC 2, 2 = CHRE( 240 ) + CHREC 242) + CHREC 10 ) 
+ STRINGE( 2. 8 ) + CHREC 241) + CHRE(C 24% ) 
A LROSH ¢ x ‘ Ze ty 
( TRE fe 2) 
HC RE >) s HEAD( 1) = 19 3 2) = 19 sg 
4EL¢ , = 19 os HEADC 4) = I9 : HEAD & = 20 
me) FOR € = | VO & : PHASEC fo) = INTC RNDC 1) * 2) + Lis 
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$90 
400 
410 


420 
430 
44@ 
450 
460 
470 
48a 


490 


SOQ 
1 


702 

LO 
1018 
1028 
1@25 


LOSB 


1048 


NEXT 


BIRDX( S >) = 17 s BIRDY( S&S ) = & 
BIRDX( 4) = 1@ : BIRDY( 4) = 7 
BIRDX( 3 ) = 30 s BIRDY( & ) = 7 
BIRDX( 2) = 1S s BIRDY( 2) = Lt 
@IRDX( 1 >) = 25 s BIRDY(C 1) * Li 
SPDC 4) = -2 : SPD( 3) = 2 
SFDC 2) = 1: SPD( 1) = 1 

Setup screen 
H 


FAFER @ : CLS : BORDER 1 
FEN 2 : FOR IT = 1 70 40 s FOR J *= 1 TO @ : LOCATE LT, J 
s PRINT CHR#¢ 143 ) : NEXT : NEXT 
“QF TO 11 8s FOR J = 15 TO 22 : LOCATE I, J s PRIN 
eM6 ) s NEXT : NEXT 
@ 170 40 : FOR J = 16 10 @2@ 2 LOCATE TL, Jo: FRI 
eM ) s NEXT =: NEXT 

TO 40 : LOCATE $, 23 8: PRINT CHR#( 206 ) + NE 


FOR T = 13 TO 28 : LOCATE I, 20 : PRINT CHR#( 208 ) 2 N 
EXT 


FOR f = 13 TO 28 : LOCATE [, 22 2 PRINT CHR#( 210 ) 2: N 


LOCATE 12, 20 2 PRINT CHR#( 209 ) 4: LOCATE 12, 21 8 FRI 


NT ( 209 ) : LOCATE 12, 22 2: PRINT CHRE®C 209 ) 
LOC Y, 20 ¢ PRINT CHR#C 21h 0 8 LOCATE 29, 21 4 PRI 


¥ PC L102 : LOCATE 29, 22 2 PRINT CHRE( 214) 

LOCATE 20, 19 : PEN to: PRINT CHR#( 246 ) : LOCATE 20, 

e2Q or PRINT CHR#( 249 ) : LOCATE 20, 21 8 PRINT CHR#( 250 
) 

EVERY 15, 1 GOSUR 4000 

NS = Sos ACCOUNT = @ 2 GOSUE 3aaa 


Main Program loop 


FOR 8D = 1 70 5 

GOSUE 18@@ 

IF INKEY( 47 ) * -1 AND HIT = @ THEN GOSUB 2000 : GOSUE 
SQV 

{F NS = @ THEN GOTO Sao 

NEXT ¢ HIT = @ 

LOCATE 20, 2 2 PEN So: PRINT CHRS( 143% ) 

GOTO S20 


Move birds 


-OCATE EIRDX¢ BD ), BIRDY(C BD ) 

FRINT USING "&" ys BLANKS 

BIRDX( BD ) = BIRDX( BD ) + SFDC BD ) 

IF RND¢ 1) « @.4 THEN BIRDX( BD ) = BIRDX( BD ) + SFD¢ 
ED ) 

(F BIRDX(C BD >) « @ THEN @TRDX( BD ) = 37 2 ACCOUNT = AC 

COUNT =~ @.1 s GOSUER 3a0a 

JF ORBIROX€ RD ) & (37 THEN @ERDX( BD >) = @ 5 ACCOUNT = AC 
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LQ 
1068 
1Q78 
1080 


2998 
5OQB 


SQL 
3020 
3030 


3990 
4000 


4018 
4Oe2 
4Q30 


aD 
PRINT USING "&'"; BIROSE¢ BO, FPHASEC BD ) ) 
RE TURIN 


Fire Gun 


ACCOUNT = ACCOUNT ~ @.1 : NS = NGS ~ 1: 
15, 1, 1, S31 8 HIT = @: FOR I = 1 TOS 
(F RIRDX( To) = HEAD( IT ) THEN HIT = [ 
NEXT 

IF HIT = @ THEN LOCATE 20, 2 : PEN 3 2 PRINT CHR#( 251 
> 3 RETURN 

LOCATE RIRDX( HIT ), BIRDY( HIT ) 

PEN 2 9: FRINT USING "&"3 HITS 

FOR J = 1 TO 3 8 FOR I = 1 TO 20 STEP 2 : SOUND 1, I, S&S 
o LS os NEXT s NEXT 

IF HIT « 8 THEN ADD = @.2 ELSE IF HIT «< S THEN ADD = @. 
S ELSE ADD = 1 

ACCOUNT = ACCOUNT + ADD 

RETURN 


SOUND 1, @, S, 


Update account 


LOCATE 1, 25 s PRINT SPACES( SB) : PEN 3 : LOCATE 1, 2 
Soe LF ACCOUNT «< @ THEN PRINT "YOU,QWE,#'"y ELSE PRINT "Y 
OU ALHAVE 48" 5 

PRINT USING "###.##"; ARSC ACCOUNT ) 

LOCATE 25, 25 2 PRINT "NO.,SHOTS 3:4."4% NS 

RETURN 


Alter phases 


3 

FOR Ti = 1 TO & + IF PHASE( Ti ) = 1 THEN FHASE( T1 ) = 
2 ELSE PHASE( Ti) = 1 

NEXT 

IF RND( 1) « @.S THEN SPD( § ) = =1 ELSE SFD( 5) = 1 
RETURN 


More shots ? 


LOCATE 1, @% 8 PRINT SPACE$( 38 ) : PEN 3 : LOCATE 1, 2 


PRINT ANOTHER A346 SHOTS vA? a CY ZN)" 
IF INKEY ¢ ‘ THEN S@230 ELSE IF INKEY( 46 ) & =1 


: GOTO S30 
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B998 
FQO 
IB1B 
FQV20 
IO2B 


IBAQD 


CLS 2 LOCATE 
LOCATE 1, 1@ 
[F ACCOUNT «< 
YOU, SHORTLY" 
LOCATE 3S. 16 
HH" ACCOUNT 
CF CNKEYs = 


Game over 


16, 10: FRINT "GAME,OVER" 


~@.@1 THEN 
ELSE FRINT 


PRINT "“THE,BOYS,WILL RE ,SEE ING, 
"CONGRATS .FOR.YOUR.WINNINGS" 


: PRINT "ACCOUNT 24¢"3 2 PRINT USING "HHH, 


"THEN END 


ChexSum Tables 


360 


iu 


EH 


ald te 
IN 
8 

5 


HOH HO OH 


Hu # 


# HOR 


HB 


BRS 


HR EH 


ELSE 9040 


1794 a 
1948 6874 
1446 SA7 7 
@ 176 
Bag O99 
3996 


@ 
Sane 
1874 
1736 
201 
@ 


oo 
BI90 
PAV 
JOLQ 
a) ew mat 
FA30 
FOAQ sx 


TOTAL 8 eSithé 76 
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ASTERIOD INVASION 


\ 


CLASSIFICATION: Time-limit Game 


You have thirty seconds to save everything known to man. You do this 
by blasting the aliens. You have a fully implemented jelly plasma laser, 
which you can fire after you have lined up the sights on your enemy. 

Use ‘A’ to move up, ‘Z’ to move down, ‘comma’ to move left, ‘period’ 
to move right and space to fire. 


PROGRAMMING SUGGESTIONS 


This game can be altered in many ways to make it easier, harder or 
just more complex. Try a combination of the following: Putting more 
aliens on the screen, altering the time limit, altering the course and 
speed of the alien and finally altering the scoring. 
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PROGRAM 


Meteor character string 
Phase of each meteor 
Meteor columns and rows 
Player’s score 

Cross-hair column, row 
Pixel equivalents of A and B 
Current meteor 

Energy 

Alien’s column, row 


Program Structure 


Variables 
MET$(4) 
MET(3) 
X(3), Y(3) 
SCORE 
A,B 

Q, W 

Z 

ENERGY 
ALX, ALY 
Lines 

10 

30 — 190 
200 — 320 
338 — 470 
390 — 480 
490 — 820 
830 — 900 


Function/Activity 
Call initialise routine 
Main loop 

Firing routine 

Print meteor block 
Game over 

Initialise variables 
Initialise screen 
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ASTEROID 


a 

4Q 
be) 
6B 


70 
8a 
98 
1Q@ 


11 
120 


130 
148 
150 
16@ 
170 
18Q 
192 


Call initialise routine and Main loop 


GOUSUB S@@ 


Firing routine 


+ do: TF MET(T) = S THEN METCT) = dos X 
CT) = CINTC RNDCL) © SQ + BS) or ¥CT) @ CLINT OC RNDCL) © 18 


+ %) os ENERGY = ENERGY ~ 1 o: LOCATE 30, 24 2 FRINT ENERG 
You TF ENERGY = @ THEN GOTO 420 
NEXT T 


LOCATE ALX., ALY s PRINT "4" 

ALX = ALX + 1: IF ALX > 38 THEN ALX = 3 2 ALY = CINT( 
RNDCL) * AQ + SS) 

LOCATE ALX, ALY : PRINT CHR (224) 

LOCATE A, Bor PRINT "4" 

A ® A + CINKFEYCS9) & -1) — CINKEYCS1) > -1) 24 B= B+ ¢ 
domed) om CINKEY (C74) > 4) 

THEN A = 3 


a <3 THEN B = 18 

PEN 2 +: LOCATE A, Bo: PRINT CHR (252) 
IF TNKEY (47) > -1 THEN GOSUB 21 

GOTO 4 


Display meteor block 


Qomw A * 16 — Boe Ww C2 ~ A) e 16 + 

MOVE %, 98 : DRAW @, W, 3 

MOVE 644, 98 » DRAW O, W, & 

TF INKEY (67) > ~1 THEN FOR T = 1 TO LE+1@ 2 NEXT T 

FOR N= 1 70 100 STEF 15 : SOUND 129, NM, 10, 45 8 NEXT 

N 

IF A = ALX AND B® ALY THEN SOUND 129, 100, 100, 15, 1, 
a) Pr ALX = Bos ALY = CINTC RND(L) * 10 + GS) 2 SC ; 
¢ RE + 1000 : LOCATE 10, 24 : PRINT SCORE : ENERGY = 

Y+ 10 LOCATE 33, 24 2 PRINT ENERGY 

"OR Now 1 TOs 

IF (Ao X (ND ‘ 


A — t= X(N)) AND (B= Y(N) OR BR ~ 1 = Y¥ 
2 SCORE + CINTC RND(1) * SQ@Q0) +: ENERGY 
ATE 10, 24 : PRINT SCORE : LOCATE 3a, 


mw ENERGY + 2 


I. 


43 3Y ELSE GOTO 29a 
SOUND SO, (5, 1, 4, 205 METCN) = 4 : GOSUE 34 
1) 
NEXT NW 
HOVE SS. 9G os DRAW G, Wy @ 
M 634, 98 : DRAW @, W, 8 


JIM 
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39O 
40a 


418 


420 
rT) 
449 


AS 
4d 


470 
48 


490 
8Q0 


S18 
bara 4) 
SO 
S42 
bbe] 4} 
568 
S70 
380 
bw) 
620 
610 
620 
S20 
640 
680 
660 
678 
680 
698 


782 


7A 


Game over 


iy 

LOCATE X(Z), YZ) 

PRINT LEFF TS (METS (MET(Z)), 2) 
LOCATE X(Z), Y(Z) + 1 

PRINT RIGHT# (METS (MET(Z)), 2) 
RETURN 


Initialise variables 


: 

FOR T= 4 TO 20 5 FOR N * 200 10 @ STEF ~ @@ 2 SOUND Le 
9, VT, 10, 15 s NEXT Not NEXT T 

FOR T= 1 TO 26 : LOCATE 1, 105 PRINT CHR# (11) 2 NEXT T 


MODE @ : PEN 4 3 INK 4, @ 
LOCATE 6, 2: PRINT "GAME,OVER!"” 

FOR T = 1 TO 26 + INK 4, T + SOUND 129, T * 1@, 10, 15 

: SOUND 130, T * S, 10, 18 : SOUND 132, T * 15, 10, 15: 
NEXT 1 

FEN 7 : LOCATE 1,8 : PRINT "Your,Score :4"sSCORE 

LOCATE 1, 14 5 PRINT ",..PRESS,4’/R aFOR««aaaaa ANOTHER, GA 
ME." 

IF INKEYS = "R" OR INKEY# = "re" THEN RUN ELSE GOTO 470 
STOP 


Initialise screen 


SYMBOL AFTER 224 2 SYMEOL 224, 


" 


192496,124,115,124,96,192 
,Q : SYMBOL 240, @, O, @, @, @, @ 1, 3 
SYMAOL 241, @, OW, B, OW, O, O, 192, Ve24 
SYMBOL 242, 3, 1, @, @, @, @, @, a 
SYMBOL 245, 224, 128, O, O, @, W, @, @ 
SYMBOL 244, @, @, @, @, 1, 3, 14, Bt 
SYMBOL 245, @, @, OW, @, 192, 32, 240, 240 
SYMBOL 246, 15, 4, 7, 1, @, @, @, @ 
SYMBOL, 247, 224, 192, 128, 128, 0, @, 2, @ 
SYMBOL 248, 8, 12, 25, 99, 239, 255, 255, 255 
SYMBOL 249, O, 224, 112, 240, 248, 252, 158, 239 
SYMBOL. 250, 255, 127, SS, 23, 27, 13, 6, 3 


SYMBOL 251, 238, 252, 176, 248, 224, 224, 192 

SYMBOL, 252, 36, 24, 129, 66, 66, 129, 24, 36 

BORDER @ 

FAPER @ : INK @, @ 

PEN tos INK 1, 18 

INK 2, 24 : INK 3, 6 

MODE 1 

DIM MET#(4) 

MET# (1) = CHR#(24Q) + CHR#(241) + CHR#(242) + CHR (243) 


MET# (C2) = CHR#(244) + CHR#(245) + CHR#(246) + CHRE (247) 


METS (3) = CHR (248) + CHRE(249) + CHRE (250) + CHR# (251) 
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720 MET C4) 

73B DIM MET CS) 

TAB METCL) = fos MET C2) 

735Q DIM X(3), YCS) 

768 FOR fT = 1 TO 3 

770 X(T) = CINTC RND¢ 

788 YT) = CINTC RND¢ 

798 NEXT T 

808 SCORE = @ 

810 As 20: B® 18 

B20 Z = 3 : ENERGY = 40 s ALX = 3 : ALY = CINTCRND(1) * 18 
+ &) 

B30 LOCATE 1, 1 5 PRINT STRING# (40, CHR# (210) ) 

840 LOCATE 1, 20 3: PRINT STRING#(40, CHRS (208) ) 

850 FOR T = 2 TO 19 

840 LOCATE 1, Tos PRINT CHR# (C211) 

878 LOCATE 40, Tos PRINT CHR (209) 

880 NEXT T 

BIB LOCATE 1, 24 8 PRINT "SCORE. see wQaeee een en ENERGY. oe 4Oy 


9QB RE TURN 


Ht 


2: MET(3) = 3 


1) #*# 30 + &) 
1) 


* 10 + &) 


ChexSum Tables 


bd 430 
int 640 
a GUO = 
am 66 = 
c &7Q 
3 BQ x 
ee 690 * 
ae 700 # 
= 7AQ 
we 720 
= TSO 3 
LaQ = | oa TAG * 
140 # 1464 am 70 
ig = 144.8 am 76@ 
160 * 1446 ad 770 
170 = 1766 it 788 # 
Li3Q) os 9 am TQ om 
y oe BA = 
on 81Q = 
bad BLO 
ba B29 = 
bi B40 
a 858 
SS BOO = 
SOQ = 870 = 
S70 = 880 = oS 
wE8Q = 890 = 268) 
SIO = 900 = 2OL 
600 = 
610 = 
620 = TOTAL = 176462 
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SPACE WARS 


CLASSIFICATION: Shoot-up Game 
Slaughter the aliens as they appear within your field of vision, steady 
on the cross-hair before you fire. Your ammo is limited as are the 
number of aliens. 

Use ‘A’ to move up, ‘Z’ to move down, ‘comma’ to move left, ‘period’ 
to move right, and ‘space’ to fire. 


PROGRAMMING SUGGESTIONS 


To make the game harder place some obstacles on the screen and 
alter the alien’s movements. 


PROGRAM 

Variables 

ALIENX, ALIENY Alien’s Co-ordinates 

SCORE Player's score 

AMMO Number of shots remaining 
ESCAPED Number of times an alien escaped 
ALIENS Characters for printing alien 
OLDX, OLDY Save alien’s old coordinates 

XDIR, YDIR Adjustments to alien’s coordinates 
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Program Structure 


Lines 

60 — 140 
160 — 320 
368 — 460 
470 — 540 
580 — 640 
688 — 780 
820 

860 — 980 


Function/Activity 
Initialisation 
Main loop 

Firing routine 
Alien hit 

Alien escaped 
Game over 
Break routine 
Instructions 
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SFACE WARS 


Initialise game 


68 GOSUR 86a 
7a SPEED EEY 1 , 1 + ON BREAK GOSUR 82a 
8a INK @ , Os 1 oy 24 2 INK 2, 20 : INK 3%, 6: PAPER @ 
: BORDER @ E 1 
Bt SYMBOL. AFTER SYMBOL. 238, 0, 16, @, @, Q, 
@: SYMBOL 239, 32, 0, 8, @, B, O, @, @ : SYMEOL oe. "46 
, O, O, 130, 0, @, 146, @ 
a7 SYMBOL. 241, 0, @, 4, 128, @, @, @, @ + SYMBOL Baz, 136, 
O, O, 4, 64, @, @, 128 : SYMBOL, 245, 129, @, B, B, 129, 
a, 64 
90 244 , 192 , 195 , 199 , 255 , , 199 , 195 , 
SYMBOL 245 , 3 , 195 , 227 , 2 , 255 , 227 , 199 
; 
98s SYMBOL 246, 33, 68, 37, 4, 34, : 17 + SYMEQL. 24 
7, lol, 178, 6%, 41, 199, 138, SYMBOL. 248, 2. 
128, 144, @, 180, 16, 64, 144 : SYMBOL 249, 49, @, 144, 
2, 186 : SYMBOL. 250, 194, 36, 1, 143, @, 132, 
97 69, 17, 64, 182, 1, 129, 100 
100 ALIENY = 1@ : SCORE = @ : ESCAFED = @: A 
119 , to: PRINT STRINGS (40 , CHRE (181) ) 
a 2M : PRINT STRINGS (40 , CHR (181) ) + FC 
TO 19 ¢ LOCATE 1 , To: PRINT CHR# (181) 3s LOE 
PRINT CHR (181) ¢ NEXT | 
120 20: PRINT Eee eee" § LOCATE Sy 


E a ‘ an H 
MEER AEED s LOCATE & , 24 8s FRINT "AMMO, . 


Nao OCHRE C844) + CHEE 
prenaee: C24O) + CHR# C84?) 4 
_ * pe ee ee ee 


C245) 


DE AW 


os itis 4 
H * MOVE : 248 2 DRAW ° 
8 OUDY = AL TENY 
C31) > -1) ~ CINKEY (39) > =1) 
eh oe, CUMREY (RGR) oe 19 


C € (ALTENX © @4) — CALTENX & BW) ) 7 


4) 


exe) AL LENY = CC CAL TENY 4 e) om (AL LENY #1) 2 / 
4) 
270 ALIENX = ALTENX + COUNT CRND (1) 0 4 2) 8 AL TENY = ALTE 


NY + (QUINT CRNOD (1) 0 7 2) 
28Q [FOAL TENX « 2 OR AL TENX > 87 OR ALTENY < 2 OR AL LTENY 
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19 THEN GOSUR S8@ 

IF TNKE 7 > ~1 THEN GOSUB 36@ 
LOCATE » OLDY +: PRINT "14" 
GOTO 178 


Firing routine 


FLOT 8, 96 : DRAW S20, 248,282 2 PLOT G32, 96 4 DRAW AQ, 
248, 2 

SOUND 1, @, 30, 15, 4, 4, 2 

AMMO = AMMO - 1 

CATE 16, 24 
N 2: PRINT AMMO : "a" 

IF AMMO = @ THEN GOTO 680 

PEN @ 


96 ¢ DRAW B20, 248, @ 

2, 96 + DRAW S20, 248, 

COLOX) = 20 AND CINT COLDY) = 10 THEN GOTO 47 
E TWIN 


Alien hit 
4S 8 
470 wel, 248 2 DRAW 


248, 0 8 ENV a, 


Qo: INK 2, 26 ER 
LOCATE 19, 9 2 PRIN 


= 


" SCORE 
CRND (1) * 1B) +8 
(RND (1) * 1Q) +5 


RE TURN 


Alien Escaped 


Zoe be Dy 4 
GUINT CRNDO C1) * @@) +18 
CAND (C1) % 10) 45 


a LN 


1M THEN RIE TURN 
Game over 


MODE 8 
LOCATE SS. 4d 
FRONT “GAME OVER!" 
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71@ 
Te 
TAQ 
TAQ 
75) 
768 
77@ 


78 


790 
B20 


B20 
BOQ 
872 
880 
oo) 
FAQ 
918 
VEO 
9350 
FAQ 
958 
OQ 
970 
980 


PRINT "SCORE. ..." 9 SCORE 
(To = 1 TO 18 
IR N #1800 10 @ STEF ~1208 
JUND ty, Na 3, 15, 8, @, @ 


JR FT = 26 TO 8 STEF -1 os INK 1, T : FOR N = 1 TO S@ 3s 
NEXT Nos NEXT Tos CLS os INE ra 
A$ = [INKEY# 2 IF Ag =o" 


Break routine 


SF 


ED KEY AS . do: STOF 
Instructions 


MODE @ 


» a JP" 

» DOWN" 
oe a» EF T" 
oe oh I GHT" 
ee aP IRE" 


PRINT 
INK 3, 8, 
PEN oS 
PRINT 
PRINT 
FRINT "aaa Pace, War" 

INREY# 2 IF A# = "" THEN GOTO 98@ ELLs 
RE TURN 


Los MOD 
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ChexSum Tables 


Se} 
beinsy 
L840 
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TOTAL 


Ho HOR 


# oH 


E 


TANK AMBUSH 


CLASSIFICATION: Simulation Game 


An ambush has been planned for a squadron of enemy tanks. Your 
tank is positioned on a cliff and you fire at the enemy on the right using 
keys ‘Q’ to ‘9’ give angle of projection of your bomb and shell (muzzle 
velocity 0-9). Then press the space bar to fire, or fire without keying 
in any numbers to send up a flare. 

The game ends when an enmy tank reaches the bottom of the cliff 
and you score 5@ points for each hit. 

Use the keys ‘@’ to ‘9’ to make an angle between @@ and 89 degrees, 
and a ‘shell’ (muzzle velocity) between @ and 9. Fire by pressing the 
space bar. 


PROGRAMMING SUGGESTIONS 


Some more tanks could be added to make the game harder and more 
exciting or the tank speed could be altered using the TSPEED variable. 


65 


PROGRAM 


Variables 

EXPL$(6,3) Strings for six explosion phases, each with 3 
lines 

LT $ Last tank moved 

TSPEED(4) Tank speeds 

TANK$ String for printing tank 

TCOL Tank colour 

TK Tank number 

TANKX(4), TANKY(4) Coordinates of each tank 

SCORE Player's score 

HIT Number of tanks hit by bomb 

FIRE Is this shot a flare or a bomb? 

ANGLE Angle of projection 

SHELL Muzzle velocity 

ile Time parameter for bomb's trajectory 

XIV, YIV Initial velocity in each direction 

BOMBX, BOMBY Bomb’s coordinates 

NROUNDS Number of waves of tanks destroyed 

I,J Temps 

CU Character under Bomb 

MSG$(9) Array of message strings 

MN Message number 

EXIST(4) Does each tank exist? 

Program Structure 

Lines Function/Activity 

10 —179 Initialise game 

190 — 300 New Round 

320 — 480 Editor 

500 — 520 Main loop 

1000 — 1130 Move bomb 

2000 — 2060 Explosion 

3000 — 35308 Move/print tanks 

4000 — 4040 Hit tank 

5000 — 5020 Print message 

90008 — 9040 Game over 


66 


PANE AMBUSH 


Initialise game 


18 DEG : MODE 1 : INK @, @: INK i, 15 : INE @, 18 5 INE & 
1 24 
a4) SYMBOL, AFTER 232 2 SYMBOL 232, 0, @, 255, 1, 7, 3l, 127 
s SYMBOL 235, 127, 199, 146, 199, 127, @, W, @ 
3Q 64, 248, 248, 248, 252, 254, @ : SYMBOL 
34 2% a} Q @ 
4Q 7 Sb, 129, B : SYMBOL 24 
ae SYMEUL. 242, 64, 8, 16, 
bw 4) 3, 2 1 4, 33 2 GYMBOL 244, @, 
Be, @, 64, 9 : SYMBOL 245, 144, 2, 1H, @, 66, 
6B 64, 4, @, 144, 1, 16, 4, 64 3: SYMBOL. 247, 2 
18, 8, 128, 0, 16 2 SYMBOL 248, 4, O, 144, 2, & 
7 63, G3, 65, 635, 127, 0 2 SYMBOL Q, 
20, ABZ, B@, O, BW: SYMBOL. V1, eT) 
254, O : SYMBOL 252, 19, 19, 
8) 24, 68, 68, 24, 8, @ 
90 e's EXPLS(1, 2) 2 "A" + CHRE C24) + "A os 


“L. 
PLS C2 yt) # "ob CHRE C241) + "8 os EXPL C2, 2) OCHRE ( 
2) + CHIRECD) + CHRE C244) s EXPLE C2, e UN + CHRE Cadet 


112 SO +CHRE (9) +CHRE (247) 2 EXPL#(3,2) = 
3) = CHRE (246) +CHRE (9) +CHRE (248) 
1L2@ "Cs EXPL#(4,2) = CHRE(9) + "J" 2 EXPLS(4, 
LQ t+ "A" op EXPLE(S,2) = "A" + CHRECD) 
. i : = OCHRE (9) + "A" 
140 EX LE CO | + CHRE (9) + "QA" os EXPL#E(6,2) = '" s EX 
i) “| #$(6,1) 
LQ : Ea # 2A2) +CHRE C234) +CHRE (1G) +STRINGS (2,8) + CHR ( 
OBS) ob CER 
170 SG¢(1) = “Readyazto,vfire" s MSG$C2) = "Frese va.keyawith 
CUED ee ON ad 
17S 38°05) = "Waiting,for,second,.digit" » MSG#(4) = "Name, 
trea shel ta Gant aP) os BCS) = "FPranpare,towF TRE, |! 
177 : S.THE.GPACE.BAR, SILLY!" ¢ MSG#E(7) = "y 
pope 
ane! 
79 : alin! £ MSG) = "ENEMY HAS 
wiIVE RRUN» YOUR FOS I TTON gi" 
New round of game 
18 
198 (O 4 : ISFPEED(LT) = -INTCRNO GL) #2) -— fos TANKX CT 


EXISTCT) = Lo: NEXT 

= INTORND(1)*S) + 6 ¢ TANEY (2) = TANEYCL) + 3 
TANEY C2) + 3 oo: TANKY (4) = TANRY CS) + 3 

é NROUNDS + 1 

QO s BORDER @ : CLs 
s LOCATE 1, 10 2 PRINT CHRE (249) +CHRE 
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251) +CHRE C1 


@) +STRING# (2,8) +CHR# (250) +CHRE (252) 

238 FOR T#=1 TO 6 : FOR J=l2 TO 20 : LOCATE I, J : FRINT CHR 
C143) ¢ NEXT & NEXT 

268 MOVE @, 78 : DRAWR 648, @ 

278 MOVE @, 226 : DRAWR 3@, @ : DRAWR 10, ~2 

28 FEN 2 : LOCATE 3, 22 1 PRINT “Angle : " : LOCATE 16, 22 

: PRINT “Shell «s " 
298 LOCATE 29, 22 : PRINT "SCORE : " 
200 LOCATE 35, 22 2 FEN 2 : FRINT SCORE 


Lo: GOSUB SOO 
INKEY# ¢ TF Die = "" THEN GOSUE AQ00 2 GOTO 


TF D@ = "A" THEN FIRE = @ : MN = 8 : GOSUE S@@@ : 


"QO" OR DIF > "8" THEN MN = @ : GOSUB SOOO : GO 


, UB S@Wo 

cd s LOCATE 9, 22 oa PRINT VAL (D1#) 

D2e = INKEY# ¢ IF D2 = "" THEN GOSUR 3000 : GOTO 478 
IF D2e < "O" OR Des * "9" THEN MN = 2 2 GOSUR S@Q@ 2 GO 
tO 378 

S90 ANGLE = 10 % VALCO 1B) + VAL (Dee) 

43Q PEN @ oo: LOCATE 11, 22 4 PRINT USING "#"y VAL. CD28) 

4A MIN = 4 3 SUR SMe 
Hie Ol# = INKEY# 2 IF Dis = "" THEN GOSUR 2008 2 GOTO 428 
a IF Die «< "QO" OR DI & "9" THEN MN = 2 1 GOSUR S@WA : GO 


s LOCATE 22, 22 2 PRINT VAL (OLS) 4 

 @ VAL DLE) os MN = So: GOSUE 

460 Dies = [TNKEYS 2 ITF Dis = "" THEN G Mh: GOTO 468 
f 


470 IF Dis <> "4" THEN MN = : GOSUR S00 + GOTO 460 
490 MN = 7 3 GOSUE SWOO : 


UND 1, OW, 1H, Li, 1, bt, 15 
UE 1808 

8) Sea 4141/4) 

BOMEX = @ THEN 220 BELGE SOS 


Move bomb 


LOMO IF CROMBX <3 @) THEN 1@10 EL 

T= @ s LOCATE 3, 8 8 FEN ° 
WS TF FIRE = @ : 
SHELL % COS CANGL E 


SE BOMEX = 
PRINT 
SHELL. 
Sos YIV = SHELL #* SIN CANGIE) 


EEN I bo TF CHUMRX = $9) AND (BOMAY = @ AND ROMBY « 


THEN LOCATE BOMEX. HOMEY & PRINT CHEE COU) 
l ror & 

fF oC) # 2M) AND CF IRE = @) THEN 2808 
ROMRX 2 INI CA + 1 * KIM) 
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1050 BOMBY = [NT(8 ~ Te YIV + B.049 * 1 & 1) 


1@60 IF BOMBY « 1 THEN RETURN 
LaMes 19 THEN BOMBY # 19 8: IF BOMEX & 34 THEN BUME 
2000 ELSE GOTO 200a 
La7@ N ROMBX = 34 5 IF BOMBY « 2 OR ROMEY & 
« OM : RETURN ELSE GOSUB ZOO s URN 
LBB 16 ~ 8, 4@0 - BOMBY * 16) = 1 THEN CU 
1W9O HIT = : i zt TO 4 2 IF EXITS) (TE) = @ THEN 1110 EL 
SE Tl = BOMEX ~ TANEX (TE) 4 4 . TANEY CTEQ 
Li@@ IF (TL = @ OR Tl = 1) AND (T2 * 1) z = 
TR 
Vid@ = NEXT 


1420 TF HIT = @ THEN LOCATE BOMEX, BOMBY : FEN 3 os PRINT CHR 
¥ S) os RETURN 
Lise GOTO 4008 


Explosion 


P So: FOR [#1 10 6 
LOCATE EOQMEX<1, BOMEBY=4 
PRINT EXPL Oly 1) 
LOCATE nee "ds BOMBY 
(ly42 

CC - 4EIX~ 1 » BOMBY +1. 
PRINT EXEL CL.) 
$3 UND 1, @, 4%, 15, 1, 1, S1 

let * @ THEN 2@50 

. T/72 THEN LINK 2 TCO. = 10: GOSUR SS 

“INK O, @ +: TOOL = @ : GOSUE 3500 


OQ : 

2055 TF ROMEX < 8 THEN FOR tet 10 6 : FOR J#12 
6 LOCATE T, do: PRINT CHR# (14:5) 2: NEXT & 

2060 BOMEX *= OW t LOCATE 9, 22 8 PRINT “wae § LOCATE 22, 22 
s PRINT "aa of RETURN 


Move and display tanks 


TF ORND (C1) & NROUNDS/1@0 THEN RETURN 

Poe iP ob do TE LT = & THEN LT = 1 

IF EXISTCULT) = @ THEN 2010 

TANEX CLT) TANEX (LT) + TSPEED (LT) 

([F TANEXC.7T) <2 6 THEN TCOL = % : GOSUB 2500 » GOTO 988 
4) 
RETURN 


SQ ELSE LOCATE TANEX (TE). TANRKY 


Hit tanks 


3990 + 
4000 tv) = @ + SCORE = SCORE + 5@ + LOCATE 35, 22: F 
PRINT SCORE 
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4B1Q 


hee) 
4030 


440 


499 
SOIR 
SOL 
She 


BIIA 
POW 


FOI 
FA2O 
PUAB 
WU40 


BOMEX +: GOSUR 2WU0 : BOMBX = Ko : GOSUR 2000 : ROMBX 
: : GUSUB 2a0a 

HtY = Oo: BOMBX = fos GOSUR 2Ba8 

TF EXISTC1) = @ THEN TF EXIST(C2) = @ THEN IF EXISTCA) = 
@ THEN (F EXIST(4) = @ THEN 190 

FRET IRIN 


Display message 


SALE 4, 24 ¢ FEN 3 os FRINT SPACES (44) 
Te 4, 24 3: PRINT MSG# (MN) 
SET WEI 


Game over 


: GOSUB SWWO : FOR L#1 TO 1000 STEF 10 : SOUND 1 
15 os NEXT 

TO 2s PRINT s NEXT 

trirraraoP RESS ABBEY .FORZANOTHER, TRY" 

SEY Re" THEN 9 

EY #0" "' THEN 9840) ELSE RIN 
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ChexSum Tables 


1Q = 2613 2022 = 
20 = = 3292 2024 = 
3Q = = 2491 a= 
40 = = 1865 = 
Ss = 930 
60 = 2661 = 
70 = S834@ = 
cd = om 
me aa = 
ah 3 = 
om om om 
bo a a 
wa a a 
bea ‘a a 
ima cd on 
L--9 = om 
cm = ms 


im ts ra 
a om nt 
ts mi at 
sm ‘me e 
“ se 9800 = 
= bed FOAQ = 
e et 9020 = 
ae FOS = 
us = 9O4AQ = 
ba on 

. = lOrAL. = 
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COSMIC CRITTERS 


CLASSIFICATION: Evasion game 
Use the keys shown below to help Harry the Hungry, Hairy Mountain 
Man leave his camp at the bottom of the screen, manoeuvre through 
the dangerous cosmic critters and to the stolen food at the top of the 
screen. 

Harry must then return to his camp and repeat this process as many 


times as possible! 
To move use: ‘A’ up, ‘Z’ down, ‘comma’ left, and ‘period’ right. 


PROGRAMMING SUGGESTIONS 


The game be altered to make the closest critter move towards Harry 
more often or the speed of the critters could be altered, as could Harry's 
speed. 
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PROGRAM 
Variables 


DIR(5) 
ee 


HCOL, HROW 
HSPX, HSPY 
CRIT$(5) 
BLANK$ 


CRITX(5), CRITY(5) 
NT 


LOADED 
CT 
| 


Directions for each critter 
Closest critter (1-5) 

Harry’s column and row 
Harry’s speed in each direction 
Characters for each critter 
String for blanking a character 
Critter coordinates 

Number of complete trips 

Is Harry loaded with food? 
Current critter number 

Temp 


Program Structure 


Lines 

30 — 130 
160 — 300 
500 — 530 
1000 — 1090 
2008 — 2020 
3000 — 3080 
4000 — 4040 
9000 — 9070 


Function/Activity 
Initialise 

Main loop 

Harry drops food 
Draw food/camp 
Draw critter 
Move critter 
Read keyboard 
Game over 
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COSMIC 


CRITTER 


Initialise game 


MODE 1 : INK @.1% : INK 1,@ 3 INK 2,3 3 INK 3,19 2 PAPE 

R @: BORDER 13 : CLS 

SYMBOL 240, 3, @, 240, 8, 4, 7, 15, 31 2 SYMBOL 2 
, 15, 15, 4, 8, 240, O, 3B: SYMBOL 242, 156, 13 

44, 166, 2895, 255, 246 + SYMBOL 243, 246, 255, 
144, 136, 136, 136 

SYMBOL. 244, 68, 34, 17, 17, 17, 63, 127, 255 : SYMBOL 2 

45, 255, 127, 63, 17, 17, 17, 34, 68 : SYMBOL 246, 44, 3 

@y 16, 17, 17, 280, 252, 252 : SYMBOL 247, 252, 252, 250 
, 17, 17, 16, 32, 64 

CRIT$ (1) = CHRE (244) +CHRS (246) +CHR# (18) +CHRE (8) +CHRE (8) 

+CHRE (245) +CHR# (247) 

FOR I=2 TO S : CRITS#(1) = CHR¥(24Q) +CHRS (242) +CHRS (10) + 

CHR (8) +CHRE (8) +CHR$ (241) +CHR#(243) 4 NEXT I 

CO = § : HCOL = 20 : HROW = 24 3 HSPX = @ : HSFY = =—1 ¢ 
CROOL (1) = 3: FOR I = 2 TO S : CROOL(I) = 2 : NEXT 

DIR(1) = <3 : DIR(2) = 2: DIRGS) = -2 : DIR(4) = 1: D 

IR(S) = = 

BLANK = "44 "+CHR$ (10) +CHR$ (8) +CHRE (8) +" 44" 

ORY 4: CRITY(1) = 3: CRITX(2) = 2: CRITYC2) 
CRITXCS) # 2 op CRITYCR) = 14: CRITX(4) = 3% ¢ ORI 
= 1% : CRITX(S) = 33 2 CRITY(S) = 19 

~i : GOSUB S@Q : LOADED = 1 : GOSUB 1000 : LOADED 


EVERY “3Q, 1 GOSUER 4800 
FOR CTs) TQ % : GOSUE 2000 : NEXT 


Main program loop 


FOR CT = 1 TO & 
GOSUE SBOE 


.. HROW : FRINT "4" 

ACO. z + HGPX : HROW = HROW + HSPY 2 CC = INT CARS ( 
(HROW ~ 2)74)) + 4 

CO a OC + (CC = 6) 

IF HCOL «< 1 T 


: “2 THEN HROW = 2 
IF HROW 4 THEN HROW = 24 
PEN tos TE HOOL, HROW : PRINT CHR# (248) 

Ti = CRITY (CO) - HROW : T2 = CRITX(CO) = HCOL 

CF (tl=-1 OR Tl = @) AND (T2=-1 OR T2=Q) THEN 908 

IF (LOADED = @) AND HCOL = @1 AND HROW = 2 THEN GOSUE 1 
OW s QADEO = Lo: FRINT CHRE (7) 

TF LOADED AND CHCGL = 20) AND CHROW = 24) THEN GOSUE Sa 


) 
GOTO 168 
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420 
SHR) 
S1i@ 
oS 


been) 


S30 


S40 

1008 
101 
120 
1020 
1048 
1@5@ 
1060 
17 
1080 
1098 


110@ 
YO 
2Q1@ 
ad) 


3092 
40GB 
40ia 


Harry drops food 


GOSUB 160 
LOADED = @ : NT = NT + 1 


LOCATE 1, Lo: FEN 1 os PRINT "TRIPS :,"sNT 

FOR I=1 TO 100@ STEP 2@ : SOUND 1, 1, @, 15, 1, 1, Ms 
NEXT 

RETURN 


Draw food and camp 


TF LOADED THEN T = 1 ELSE T = @ 
MOVE 220, 290 : DRAWR @, ~16, T 
DRAWR 20, @, T : DRAWR @, 16, T 
DRAWR -—20, @, To : DRAWR 20, -16, T 
MOVER @, 16 : DRAWR ~20, ~16, T 
MOVER 4, 16 : DRAWR @, 6, T 

DRAWK 12, 0, T : DRAWR @, ~4, T 
MOVE 208, 4 : DRAWR 12, @, 1 

DRAWR ~6, 6, lo: DRAWR -6, ~6, 1 
RE TURN 


Draw critter 


LOCATE CRITX (CT), CRITY (CT) 
PEN CRCOL (CT) : PRINT CRITS(CT) 
RE TURN 


Draw critter 


LOCATE CRITX(CT), CRITY(CT) & PRINT BLANK 2: CRITX (CT) 
me CRITX(CT) + DIR(CT) 

IF CRITX(CT) «= 2 THEN CRITX(CT) = 1 8 DIR(CT) = ~DIR(C 
Be) 

IF CRITX(CT) oe 3S THEN CRITX(CT) = 34 : DIR(CT) = =DIR 
(CT) 

GOSUB 2A08 

TF OCC ae CT THEN RETURN 

TF RND(C1) «< @.4— NT/1Q@ THEN RETURN 

TF CRITX(CT) & HCOL THEN DIR(CT) = -ABS(DIR(CT)) &s RETU 
RN 

DIR(CT) = ABS (DIR(CT)) 

RETURN 


Read Keyboard 


1F INKEY C39) >= @ THEN HSFX = -1 : HSFY = @ s RETURN 
IF INREY CSL) = @ THEN HSPX = 1 os: HSPY = @ : RETURN 
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to: HSFX = @ : RETURN 


4020 IF ~ 
1: HSPX = @ : RETURN 


4030 IF INK 
4040 RETURN 


Y(69) = @ THEN HSFY = 
EY (71) >= @ THEN HSFY = 


Game over 


4Q5Q : 

9000 LOCATE GS, 24 : FEN to: FRINT "POOR,HARRY,! !" 

9010 ENT 1, 4 @l,li, 10, -1, 1, 10, 1, 1, Sy md. 1a FOR C 
Tet TO % s GOSUB 2000 : NEXT 

9020 DEG : FOR T=@ TO 18@ STEP 6 : INK 2, RND(L)*26 3s INK 3, 
RND (1) #26 

9030 SOUND 1, 1Q@W@*SIN(T), 15, 15, @, 1 

9040 NEXT 

9050 LOCATE S, 24 : FEN to: PRINT "FRESS.A,AKEY.FOR,JANOTHER ,G 
AME" 

9060 IF INKEY$« 

9870 TF INKEYs= 


2" " THEN 9068 
" THEN 9270 ELSE RUN 


ChexSum Tables 


am 280 = S217 ™ 
bad 290 = S782 es 
a 300 = 282 ba 
aa 4008 = @ ” 
- SOQ = 436 ia 
ne SiO = 1924 m= AOD 
a SAS = 1656 a 2049 
bal S20 = 2565 al 
bia SSO = BOL ‘a 
‘a S40 = ba 
mt 1990 = 2199 i 
ms Wi = 1297 = 
= = Q 1WL2 = 110% ” 
= LOGS 1030 = L592 ~ 
am 41 1W4Q = 13545 gs 
m 176 LOS = Bay s 
= 1465 M60 = 1517 * 
= 214 70 = 68:5 a 
s = 61320 bes 
= 201 
mt Q tes 
= 2062 = 
= 2138 = 
m 2Od 
tet Q 
270 = 4307 SOOO = 8814 POTAL = 177980 
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AMSTRADOIDS 


CLASSIFICATION: Time-limit game 


You have a limited amount laser power to wipe stop the assorted nasties 
overunning your base. You also have another problem a limited amount 
of time. To shoot the enemy you wait until they are in your line of fire. 
Using a combination of the keys given below, you can conserve your 
laser power and shoot as many aliens as possible. 

Use ‘space’ to fire in all directions. Use ‘Z’ to fire horizontally and 
‘backslash’ to fire vertically. 


PROGRAMMING SUGGESTIONS 


The time and number of shots could be altered to make the game 
easier or harder. There could be some random harmless obstacles 
placed on the screen as decoys to infuriate the player. A final sug- 
gestion would be to change the colours of the display as the time 
increases and have a warning noise to indicate impending doom. 
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PROGRAM 


Variables 

C,T Temps 

LASERS Number of shots remaining 
SCORE Player’s score 

S$ Space 


AX(4), AY(4) Alien coordinates 
AXV(4), AYV(4) Speeds 


AC(4) Alien characters 

NOW Time at gate start 
ELAPSED Time elapsed 
WEAPON Firing all drns, vert. or horiz. (1, 2, 3 respectively) 
Program Structure 

Lines Function/Activity 

10 Start game 

30 Calculate time elapsed 
50 Call initialise 

70 — 210 Main loop 

230 — 390 Firing/align hit routine 
410 — 660 Introduction 

680 — 820 Game over 

840 — 850 Alternate alien's shape 
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AMNSTRADOIDS 


10 


20 


40 
oi@) 


240 


2) 


260 
270 


Start Game 


GOTO 3 


Calculate time elapsed 


¢ 
DI os LOCATE 20,25 
RINT ELAPSED 4 § 


: ELAPSED #INT(( TIME - NOW)/1@O) : F 
El os RETURN 


Call Initialise routine 


% 
GOSWR 418 


Main program loop 


H 

DI TO 4 : LOCATE AX(T), AY(T) : FRINT "A" 
IF THEN FOR a = 20@ TO SQM + SOUND Lya,i s 
NEE X T a LOCATE 1,8 8 FRINT "Your,ytimeyran,zouty! ! 


“" t 
= OY CT) + AYY CT) 


Te AX CT) 
} Ay CT) 
AY CT) & 


( 
2 
3 

HES 2, 
TF THEN AY CT) im 08 


LOU TE AX(T), AYCT) & PRINT CHR ( ACCT) ) 
IF AX(T) = 20 AND AYCT) = 12 THEN GOTO 680 
NEXT : EL 


* @.7 THEN SOUND RIND C1) SVG, 12 
eos THEN LASERS = LAG @ os WEAPON = 1 
s GOTO 76 
owt THEN LAS ~ Joa WEAFUN = 2 
GOTO 7@ 
Poe THEN LASERS LASERS Lo: “CIN 


Firing and alien hit routine 


Di s BOUND 1, 1W@@, 15, 14, @, vw, w 

LE WEAFUN «© 1 UR WEAPUN = 3 THEN MOVE 34, 
-304, Q, 3 2 MHUVE 320, 216 : DRAWR Bw, 
{F WEAPUN = 1 UR WEAFUN * 2 THEN MOVE SL, 
MW, 184, A 2 MOVE Siv, “Ge 1 DRAWR @, 
FUR T= 1 10 4 

IF WEAPON = 1 THEN IF AX(T) = 2@ AND AYCT) ® 12 THEN SE 
URE = SOURE + Laue 


L1G & DRAWK 


2 DRKAWK 
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28Q IF WEAFON = 1 THEN IF AxX(T) = 2@ OR AY(T) = 12 THEN SCO 
RE = SCURE + 250 1 GOTO 326 

298 IF WEAPON = 2 THEN IF AX(T) # 20 THEN SCORE = SC 

S@ 2 GOTO & 

IF WEAFON 


ORE + 2 


(THEN IF AYCT) = 42 THEN SCURE = SCORE + 2 


Le = ea, AY(T) &£ PRINT CHR#(238)_ 2 AX(T) & CINT( 
RND(1) * 36) + 2 ¢ AY(T) = CINT( RND(L) * 18) # 2: SOUN 
D 1, 280, 15, 15, ¥, @, @: SOUND 1, 280, 15, 15, 1, 1, 


i ean CHRE CB) 9 Gey 


s DRAWR ~304, 0, @ : MOVE @16 2 DRAW 


2 DRAWR @, 1984, @ 2 MOVE 


L2, 208 2 DRAWK 


PRINT Se 
+ PRINT LASERS, 5 TF 


me YY THEN GOT 


390 Elo RETURN 


42 
418 MODE Qa FEN 2 9 LOCATE BS, & « “AMS TRANO TDS " 
4nd PORT 12a) SOUND @, T * BM, GS, bo, 4, 4, dos PE 


FL 3 
N mile IQ, 12 

AAG PRINT CHRA CSB): 
NEXT T 

44Q SOUND 1, S@Q, 100, 15, 4, 1, 2 2 FOR T # @ TO 64 STEF 6 

ooo ROUND C RND CL) * 14) 4 2 9 GUGUB 470 a NEXT 7 

ad FOR T = @ TO 64 STEF 6 : GOSUB 470 : NEXT T 


PEN Los LOCATE 10, d@o: PRINT "4" 


T, Goa PLOT 
s PLOT 21a, 2 
ie ey T, #16, 


FEN INT CRND CL) ® 4 + 
key, to,start vz. geian" 
N AS 


i) 


y oINK 2, @4 2 INE oy 6 & 
i 
PRINT “SCORE a eee nana TEME sen ene ew nw buh 


oie) 


eT) 4) Yt AX (A) y AVY (4), AXVC4), OAYV(4) &§ FOR Tom fT 4 

S70 SXCT) oF MINTO RND CL) # 36) + 2 op AY CT) ™ CINTC BNDCL) #* 
18) + 

SERA AKVET) CONT C BND OL) % 2) = Bo1 AYY (CT) = CUNT O RAND CL) 
Ps ee 

= @ OR AYYV(T) = @ THEN GOTO S78 


LR og AL 


By 4 A 


PE4, 24, 126 
BO, 66, Lu, 


t45, 219, 
oh SIMIC, 24, 2a, Bh "pid, ae A, 
ie, ‘ BEM fo os PRINT Ch : FEN & 


648 
Seid 
668 


678 
680 
492 
70@ 
718 


0 
B40 


350 


= TIME 
1M, | GOSUA BO a EVERY 40, 2° GOSUE 840 


Game over 


Vo= REMAIN (1) ¢ Vo= REMAIN (2) + LOCATE 2@, 12 : PRINT 
CHR (258) 1 GOUND @, 200, 108, 15, 1, 1, 4 * SQUND 1, 
1@@, 15, 1, 1 41 


1@@, 15, 4, 1, 1 : SOUND 2, 


1@@ s FEN a LOCATE 1201 PRINT CHRE ¢ 
LOCATE! 24 "yi oa NEXT T 
24, & ) INK Gos FOR N « 4 TO 


TO 64 STEF 6 
216, C+ PLOT S12 + T, 216 + T, C 
T, Cs PLOT 12, 216 + T, ¢ E 
~T, 216 -T, Cr PLOT B12 
M16 + T, C 
t 


TNs INK &, 6 
FRINT “anotherwvmission?, (y™yes , ms 


1,10 8 PEN 1 
neo)" 

A$ = TNRE YA 

LOCATE 4,1. 8 FEN TNT CRND C1) * 4 + 1) 4 PRINT "AMSTRADC 


Ad om THEN 740) 
A om VY CR Akt Ny OTHEIN IRWIN 
As ow UN OR Ma oe in! THEN BM)Q) 


FRINT SFPACE# (20) 
2 PEN dos PRINT "byewtoarynow' 9 GRPACKR Cad) 


Alternate Alien’s shape 


LF OCde@ a. THEN (dad 

poy BO s K 
1 SYMBOL. 4 
URN 


202, O, 6M, 126, 14%, 25, 2 


26, 241, 289, 143, 126, 6B: 
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ChexSum Tables 


Sees 
20 = B 
HQ me MENG, 
wee @ 
Eo AT& 
bal 10) 
be aA 


= 6825 
= 4743 
ara9 


987 

S69 
6002 
ABI 
4304 


an 


He RE 8 


# 


297 
8459 
FAW 


R794 
2168 
Slay 
a7A4 


CIGD 
176 


84 


618 


6A 


aya 4) 


640 = 


chal) 
668 
&70 
680 
690 
7) 
710 
720 
730 
740 
75 
7608 
778 


7BQ x 


790 


ho 


AE PH EB ROR 


BHO « 


810 


B20 


820 
B40 
B58 


TOTAL 


MIDGET MONSTER TRAMP 


CLASSIFICATION: Time-limit game 


This is a simple but effective version of space invaders. The aliens 
advance upon you in a random fashion and you must shoot as many 
as possible within the time limit. 

Use ‘Space’ to fire, ‘comma’ to move left, and ‘period’ to move right. 


PROGRAMMING SUGGESTIONS 


The game could be updated to give the player more men, and make 
the aliens travel slower, but thicker on the ground. 


PROGRAM 

Variables 

TIMER Time remaining in seconds 

SCORE Player's score 

SHIP Ship’s column 

XSHIP(4), YSHIP(4) Coordinates of alien ships (col, row) 
SHIP$ Characters to print when ship is moved 
FLAG One second has passed 
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Program Structure 


Lines Function/Activity 

10 —70 Call initialise screen, initialise variables 
88 — 240 Main loop 

250 — 310 Firing routine 

328 — 340 Interrupt routine 

356 — 360 Break routine 

370 — 410 Game over 

420 — 580 Front screen 
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MIDGET MONSTER 


SQ 


Initialise screen and variables 


GOSUB 438 
MODE 1 : BORDER @ : INK @, @ : INK 1, 18 : INK 2, 24 3 
INK 3, 6, 24 : SPEED INK 3, 1 PAPER @ : PEN 1 : SPEED 
KEY 1, 1 9: ON BREAK GOSUB 360 EVERY 5@ GOSUB 330 
TIMER = 100 : SCORE = @ : SHIP = 2@ : DIM XSHIP (4), YS 
HIF (4) : FOR T = 1 TO 4 s XSHIF (T) = CINT (RND (1) * 3 
6) + 2: YSHIPF (T) = CINT CRND (1) * 10) + Lo: NEXT T 
SHIPS = "," + CHR# (240) + "," 
FLAG = @ : SYMBOL 240, 24, 24, 189, 189, 255, 187, 153, 
129 : SYMBOL 241, 24, 6@, 90, 219, 255, 153, 129, 66 
LOCATE 1, 25 3 PRINT "TIME. ce ee aman amma SoRE wees! 


Main program loop 


LOCATE SHIF, 24 

PEN 2 

PRINT SHIF# 

PEN 1 

FOR T = 1 TO 4 

LOCATE XSHIF (T). YSHIF (T) s PRINT "," 

YSHIF (T) = YSHIF (T) + 1 9: IF YSHIF (T) * 23 THEN YSHT 
F(T) = 4 

XSHIF (CT) = XSHIFP (CT) + CINT (RND (1) * 3) - 2 a IF XSH 
IF (TT) * 39 OR XSHIP (T) « @ THEN XSHIF (T) = CINT CRND 
(1) * 36) + 2: YSHIF (T) = 1 

LOCATE XSHIF (1), YSHIF (7) : PRINT CHR® (241) 

NEXT T 

IF INKEY (47) > -1 THEN GOSUBR 26 

SHIF = GHIF + CINREY (39) %» 1) - CINKEY (31) > ~1) 

IF SHIF « 2 THEN GSHIF #2 

IF SHIF » 37 THEN SHIP =37 

IF FLAG @ 1 THEN TIMER = TIMER ~ do: LOCATE 10, 25 : PR 
INT TIMER 2 FLAG = @ : IF TIMER = @ THEN GOTO 38a 

GOTO 9 


Firing 


3 

PEN 3 : FOR T = 23 TO 1 STEP -1 : LOCATE GHIF + 1, T 
PRINT CHR® (149) 2 NEXT T 

ENV 1, 7, ~1, 18, 8, -1, 4@ : SOUND 2, @, 25, 13, 41, 1, 
1 

FOR T = 23 TO 1 STEF -1 : LOCATE SHIF + 1, T + PRINT "y 
"oy NEXT To: PEN 1 

FOR T = 1 70 4 : IF XSHIP (1) = SHIP + 1 THEN SQUND 1, 
250, SQ, iS, 1, 1, 1 : SCORE = SCORE + 25 : LOCATE 30, 2 
5 : PRINT SCORE : XSHIF (T) = CINT (RND (1) * 36) + 23 
YSHIF (1) = 1 

NEXT T 

RETURN 
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S8Q 


Interrupt routine 


FLAG = 1 
RETURN 


Break routine 


SFEED KEY 30,1 2 STOP 


Game over 


MODE @ : LOCATE 6, 7 : PRINT “TIME.UP!" & PRINT 3 
"YOU.SHOTs" ¢ SCORE / 285 : PRINT "ysaMIDGET,ZMONSTERS” 3 
FRINT 

PRINT ",AND.YOU,SCORED" : PRINT SCORE 3; ",POINTS" 

FOR T = 10@@ TO @ STEF ~ 1@ + SOUND 1, T, 5, 18, @, QO, 

® : NEXT T 


Ae = INKE YS 2 IF Ag = '" THEN GOTO 410 ELGE RUN 


Front Screen 


% 
MODE @ 

TNE 24, 21 2 INK tS, 23 2 INK 3, 6 
FOR T = @ TO 640 STEP 64 

FOR N= @ TO 15 

MOVE N * 4 + T, @ : DRAWR @, 488, N 
NEXT No: NEXT T 

LOCA TE © PRINT "MIDGET? 
1.0) s PRINT "MONSTER" 
2 PRINT "TRAMP" 

aPC TM eae eae dete 

TIF At = "" THEN GOTO S2a & 
DATE 1, 40: PRINT CHR# (14) 5 
LOCATE Los PRINT "‘y acne ab EFT" 9 CC : 
(41) s LOCATE 3, tos ee eae , CHARA C11) 
s CHRE (Lt) 5 LOCATE 1: PRINT "SPACE... FIRE" 
FOR fo = 4 TO 16: LOCATE 1, 102 PRINT CHR# (11) 2 NEXT 
1 
FOR To 1 TO 10@ : SOUND 1, Ty, @. 10, ty 2 oy Lon NEXT Ff 


te 
7 
9 
La 


t 
C441) 4 CHRE 
H] 


vM 


FOR Tos 3 TO 16 2 LOCATE 1, Lo: PRINT CHR# (11) 9° NEXT 
j 
FREE T GRIN 
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ChexSum Tables 


20 = 1994 Ps 
AQ se = 6097 = 
AQ x 240 = Sle cd 
SQ = 250 = @ = 
6Q = 260 = 4158 fd 
70 = 270 = A792 = 
BQ = 280 = S711 a 
90 = 290 = 10561 = 
1QQ = am AS a 
110 = = 201 = 
120 = = = Q a 
1LAQ = 677 st 
14Q = m 201 an 
LSQ = @ al 
16Q om 74 = 
L7Q = = a om 
18Q = 4288 a 
L9Q = 2744 
20Q = 3047 
210 = = 2516 TOTAL = 127684 
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WEIRD INVADERS 


POOR. cece eee ness OD uous PURE.» as. 


CLASSIFICATION: Shoot-up game 


Guide your ship through this strange galaxy avoiding and shooting the 
monsters. You are doomed to run out of fuel and die, so you may as 
well shoot your way out. 

Use ‘A’ to move up, ‘Z’ to move down, and ‘space’ to fire. 


PROGRAM 

Variables 

HEIGHT Row of ship 

SCORE Player’s score 

ALIENX(4), ALIENY(4) Coordinates of aliens (col, row) 
FUEL Amount of fuel left 

Y Vertical coordinates of ship 
T Temp 

Program Structure 

Lines Function/Activity 

50 — 120 Initialise 

160 — 270 Main loop 

318 — 380 Firing routine 

420 — 460 Game over 
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WET RD 


5) 


6) 
7 
80) 


7Q 


1M 


118 
120 


INVADERS 


Initialise game 


» SYMBOL 241, O, 
205, | SYMBOL. 242, 0, @, : 
252 5 SYMBOL 245, 60, 9B, 126, ABA, € 


“ 24 4 


DIM ALTENX (4), ALTENY (4) ¢ FOR To 1 TO 4 : ALTENX(T) # 
CINTOC RND G1) * 20 + 18) 2 ALTENY(T) = CINTC RNDCL) * % 
MO +1 % NEXT T 

MODE to: BORDER @ : FAPER @ : PEN 2 


s INK @, @ s INK 1, 


18 2 INK 2, 24 2 INK 3, 7, 24 : SPEED INK 10, % : ENV J 
1 7y why 10, By, ~1y 48 
LOCATE 1, 25 2 PRINT "SCORE. can een eee eee eee ee PEL, 


1, HEIGHT 2 F INOS os PRINT CHR# (240), 8s PEN to: F 
RINT CHRE (241) § CHIR: 2) PEN @ 


Main program loop 


FOR T = 1 TQ 4 
1. NTE AL DENX (CT), ALTENY (CT) 2 PRINT "\" 

: T KENX CT) =~ fog TF ALTENXCT) © oh 
THEN GOTO 422 ELGE AL. TENX CT) 
RND CL) * 20 + 1) 

NXCT) « ALTENY (CT) & FRINT CHR Ce4cs) 


E NY CT) 
CATE Al. 


OCATE 14 i 
LOCATE 1, HEIGHT s 
tos PRINT CHR (241) 4 CHRA C242 
HE LGHT se THEN LCC | dL, Lor PRINT “aaa 
: LOCATE 1, 23 2 PEN s PRINT CHRE C240) 4 
PRINT CHR (241 } § CHREe (242) 2: PEN 2 
F of wt THEN LOCATE 1, HEIGHT 3 
1 DATE 14 HELGHT s 3 
a " CHRE (241) 5 CHRE 24 2) 


PRINT 


ly PRINT Mao 
H  CHRE C240) ot 


FRINT CHR C241) 5 e242) 3 
IF INKEY (47) > =1 THEN GOSUB ° 
paca = FUEL - do: LOCATE 3S, 
L THEN GOTO 420 

GOTO 168 


PRINT FUEL s TF FUE 


Firing routine, score update and fuel monitor 


Ye (¢ 25 — HEIGHT ) * 16 + 4 
MOVE 48, Y os DRAW 64@, Y, & 
SOUND 129, 180, SO, 15, 4, 1, 4 


92 


FOR T= 1 10 4 
IGHT = ALTENY(T) THEN SCORE T #*# WW: LOC 

ATE 20, : PRINT SCORE : FUEL = FUEL + S : LOCATE ALIE 

NX(T), ALTENY(T) s PRINT "," : SOUND 2, 1000, SO, 15, 1, 
1. dos ALTENX(T) = CINTC RND(1) * 20 + 18 ) s ALTENY(T) 
= CINTC RND(1) * 20 + 1 ) 

NEXT T 

MOVE 48, Y : DRAW 648, Y, @ 

300 FUEL. = FUEL - 1 2 RETURN 


= SCORE + 


Game over 


390 : 

420 SOUND 2, 200, 100, 1, 1, 1 

430) LOCATE 1, HEIGHT : PRINT "44" 

440 LOCATE 20, 25 : PEN 3 s: PRINT SCORE 
430 FOR T = 1 TO 3000 : NEXT T 

460 RUN 


ChexSum Tables 


Sm TAQ 


HER YR EB 


POTAL = 1@Boa77 
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LEAPFROG 


Press m= Kew £02 
another gane 


CLASSIFICATION: Puzzle 


Using the keys given below solve this age old puzzle. Exchange the 
frogs in the shortest time possible. You can jump into an empty space 
over one of the men. The game is completed when all the squares and 
circles have moved across to the opposite position! 

Press the number (0-9) on the keyboard representing the number 
you wish to move. Press @ to finish the game if you are stuck. 


PROGRAM 
Variables 
XSAVE, YSAVE — Save col, row values in interrupt routine 
EMPTY Position No. that is empty 
COUNT Number of moves 
ASPACE Character value for a space 
ADIAMOND Character value for a diamond 
ASQUARE Character value for a square 
A(Q) Characters at each position 
Temp 
FROM Position from which a shape is to be moved 
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Program Structure 


Lines 

60 — 130 
140 — 270 
286 — 470 
510 — 560 
600 — 690 
730 — 740 
780 — 800 


Function/Activity 
Initialise 

Draw characters 
Main loop 

Player wins 

Draw screeni/initialise 
Print player's move 
Game over 
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LEAF FROG 


Initialise game 


6@ GOSUB 680 


70 DIM A (9) 
8 FOR T = 1 TO 4 
98 A (T) = ADTAMOND 


1@@ A (T + 3) = ASQUARE 
110 NEXT T 

1208 A (3) = ASFACE 

130 GOTO 280 


Draw characters 


15 : 
14 PRINT CHR& (C7) 


160 FOR t = 1 70 9 

170 LOCATE T * 2, S 
18 PEN Le 

19 PRINT CHRE (A (CT) ) 


Fite") LOCATE 3.15 : FEN 4 : PRINT COUNT 
269 EVERY 10 GOSUE 730 
278 RETURN 


Main program loop 


GOSUB 142 

LOCATE 1, 18 

FEN 12 

INBEV : IF ad = "" THEN 34@ 

2 "OY" THEN 788 

A$) « 49 OR ASC (AS) & S7 THEN SOUND 1,400,50,7,8 
WW,lo os GOTO 248 

S78 FROM = VédL. CA ) 

ABQ [F ARS (FROM = EMF TY) 

Q0,50,7.8,8,) 2 GOTO 

ACEMPE TY) = ACFROM) 

2 ASPACE 2 EMF TY = FROM 

QUNT + ot 

Rte | TO 4 

[IF a(t) * ASQUARE AND a(t + SS) = ADTAMOND AND a(S) = AS 

PACK THEN NEXT : GOTO Sia 

470 GOTO 280 


2 OR FROM = EMF TY THEN SOUND 1,4 
Q 
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S78 
600 
612 
620 
650 
6408 
650 
668 
678 
68 
698 


7Q@ 
730 


740 


730 
7830 
798 


842 


Player wins 


GOSUB 140 3: LOCATE 1, 17 : FEN @ 
FRINT "CONGRATULATIONS, !!'" 


PRINT "YOULDID.ITJING's 


PEN 10: PRINT COUNT 5 
FEN 2: PRINT "MOVES" 
BOTO 799 


Draw screen and initialise 


MODE @ : FEN 3 : BORDER 12 

LOCATE 6,i2 s PRINT "LEAP-FROG" 

EMPTY = & : COUNT = 1 

ASFACE = 32: ADIAMOND = 231 3: ASQUARE = % 
LOCATE 3,43 

FRINT "move" 

PRINT "4" CHR#(204) STRING#(4,CHR#(208)) CHR# (205) 
PRINT "A" CHR# C211) SPACE# (4) CHR# (209) 

PRINT "4" CHR# (205) STRINGS (4,CHR#(210)) CHR# (204) 
RETURN 


Print player's move 


DI : XSAVE = POS(#Q]) : YSAVE = VFOS(#O) : LOCATE 1.it os 
PEN (NT CRND (1) *# 4 + 1) 8 PRINT "YOUR,MOVE" + EL 
LOCATE XSAVE, YSAVE : RETURN 


Game over 


DY : LOCATE 1,18 : FEN 1 o: PRINT "bye,.for.now" 

LOCATE 4, 22 : PRINT "Press,a.keyzfor,." +: LOCATE 4, 24 
: FRINT "another ,game" 

IF INKEYé = "" THEN 8@@ ELSE RUN 
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ChexSum Tables 


( m= = 1248 
1 : ss 18% 
497 SA mm Oey 
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100 


EXIT 


CLASSIFICATION: Obstacle game 


Try to find your way through the sliding maze in time to find home, 
beware of the elusive gap it can cut your journey short. 

Use ‘A’ to move up, ‘Z’ to move down, ‘comma’ to move left, ‘period’ 
to move right. 


PROGRAM 
Variables 


SCORE 
NR 
TIMER 
WALL(4) 
VWALL(4) 
DIR(4) 
LIMIT(4) 
START(4) 
XMAN, YMAN 
CREEP 
HOLE$ 

; 


Player's score 

Number of rounds 

Number of seconds remaining 

Column of each wall’s hole 

Row of each wall 

Movement of holes; direction and speed 
Points at which hole has reached side of screen 
Points at which to reset hole 

Man's coordinates (col, row) 

Monster's column 

Characters for a hole 

Temp 
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Program Structure 


Lines Function/Activity 

70 Call initialise 

56 — 260 Main loop 

302 — 360 Man crashes 

400 — 440 Man reaches bottom 
480 — 510 Interrupt routine 

558 — 690 Initialise 


1000 — 1010 Alternate Monster’s Character definition 
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EXIT 


Call Initialise 


GOSUEB SSO 


Main program loop 


$ 
DI os LOCATE XMAN, YMAN : PRINT CHR# (248) 
FEN 3 


FOR T = 1 TO 4 

WAL.L.CT) = WALL CT) + DIR (T) 

TF WALL CT) = LIMIT¢T) THEN LOCATE LIMIT(T), VWALILCT) 3 
PRINT CHR# (143) 3 CHR#(143) 5 CHRE(143)3 CHRE(143) SCHR (1 
43) 3 WALL (CT) = START CT) 

LOCATE WALL (T) , WWALL (T) 

PRINT HOLES 

NEXT T 

IF CREEF « 1 THEN LOCATE 1,22 ELSE IF CREEF >» 39 THEN L. 
QCATE 39,22 ELSE LOCATE CREEF, 22 

PEN 2 2 PRINT ","_ CHR#(225)3 "," 


CREEP = CREEP + ((XMAN «< (CREEP + 1)) - (XMAN > (CREEF 
+ 1))) * 0.9 

PEN 4 

IF TEST CXMAN * 16 ~ 8, (25 —- YMAN) * 16 + 8) * 1 THEN G 


OO 300 
LOCATE XMAN, YMAN : FRINT "," 
XMAN # XMAN + CINKEY C39) % —1) — CINKEY (31) > —1) 2 YMA 
N = YMAN + CINEEY (69) > -1) — (CINKEY(71) > -4) 
TF XMAN «< 2 THEN XMAN = 38 
IF XMAN > 38 THEN XMAN = @ 
IF YMAN « 4 THEN YMAN = 1 
TIF YMAN & 23 THEN GOTO 400 
SST (XMAN * 16 ~- 8, (25 - YMAN) * 16 + 8) > 1 THEN @G 
OTTO Se 


BOTO 5a 


Man crashes 


SOUND 1, SOQ, 100, 15, 1, 1, 14 


FOR To = 1 TO 40 2 INK 1, RND(1) * 26 : INK @, RND(L) * 
26 8 INK 3, RND(1) * 26 : SOUND 2, T, 1@, Ha dy 1, Tos 


f 
Y LOCATE 1, 10 : FRINT "Timewlett a, 
1203 PRINT "seconds" 

: FRINT "Youyscored" : PRINT “yaw 


a's SCORES "points." 

: LOCATE S. 8 : PEN 8 : PRINT "FRESS,SPACE" + LO 
os PRINT ",TO,TRY AGAIN" 

TINREYS <2 "," THEN GOTO 36@ ELSE RUN 
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378 
400 
410 
420 
43a 


440 


Aci 
48 


490 


bel) 
31 


FOR 
Laoe 


Man reaches bottom 


H 

MODE @ s: SOUND 1, 1, S@, 15 

LOCATE 8, 12 : PRINT "BONUS!" 

FOR T = 2008 TO @ STEF - 100 + SOUND 2, T, 1@ : NEXT T 

NR=NR+l 2 BONUS = NR+TIMER : SCORE = SCORE + BONUS * 10 

OB : LOCATE 9, 14 +: PRINT BONUS#100@0 : FOR T = 1 TO 2000 
: NEXT T 

GOSUB S60 : GOTO S@ 


Interrupt routine 


% 

PEN 2: TIMER = TIMER ~ 1: LOCATE 10, 25 2 PRINT TIMER 
: IF TIMER > @ THEN FEN 1 os RETURN 

FOR T = 2000 TO 4000 STEP 10@ : SOUND 1, T, 18, 15, 1, 
1, 40: NEXT T 

MODE @ s: LOCATE 7, 10 : PRINT "TIME UF!" 

FOR To = 1 TO 20@@ : NEXT T os RUN 


Initialise 


t 

SYMROL, AFTER 225 

Lb C4), LIMIT (C4), 

MODE 1 : PAFER @ 

PEN to: INK 1, 20 

BORDER @ : INK @, 15 : INK 3, 18 

XMAN = 20 : YMAN = 1 

CREEP = 3B 

TIMER = 25-NR : EVERY SQ, 1 GOSUB 480 : DI : EVERY 2Q, 

2 GOSUB 1020 

LOCATE 1, 25 8 FEN @ os PRINT "TIME... eaae eee e ne ee eSLORE 
‘ 


’ 


: SCORE = @ s DIM WALL (4), DIR(4), VWA 
START (4) 
: INK @, @ 


LOCATE 30, 25 : PRINT SCORE 

WALL.(1) = 20 2 WALL (2) = 3@ 2 WALL.(S) = do: WALL (4) = 1 
Ms: DIR(1) = to: DIR(C2) = -@.5 2 DIR(CS) = Los DIR(4) = = 
1 


VWALL. C1) = 4 2 VWALL C2) = 9 os VWALL CS) = 1S 2 VWALL (4) 


ze 


= CHARS CLO 5) + "Qa! of CHR C145) 
42 FOR T= 1 70 4 2 LOCATE 1, VYWALICT) & FRINT STR 
40, CHRE(145)) s NEXT T 
(1) = 36 2 STARTCL) = Lor LIMIT(2) = 1 s START C2) 
= 36 2 LIMITCS) = 36 : STARTCS) = Lo: LIMIl(4) = 1 2: STA 


RT (4) = 36 
PEN to: RETURN 


Alternate Monster's Character definition 


[Fo clei THEN cl=@ + SYMBOL 265,24,126,255,189,153,680,25 
LahO os ft URN 
chet os SYMAOL 22S, 24, 126, 250, 189,189,24,24,60 2 RETURN 
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ChexSum Tables 


aS 


EGR HOH 


1604 
KIB 
1869 


= 1020 
= 2876 


ra 

= 7265 = 

mm {949 mm 

aR nat 

es LS9G ” TOTAL = 147517 
= 


240 = 32898 
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MEGAWORM 


CLASSIFICATION: Educational 


You start off as a small snake, the object as in real life is to survive and 
grow. Unlike reality, all you have to do in the game is catch the obstacles 
before they disappear, to collect points and grow in length (and 
stature!). The catch (there is always one) is the border, your survival 
is cut short if you hit it. This obviously gets harder as you grow (sound 
familiar?). 

To move use: ‘A’ up, ‘Z’ down, ‘comma’ left, ‘period’ right. 


PROGRAMMING SUGGESTIONS 


Decrease the time the objects stay on the screen and increase the 
speed of the worm and the length of the segments. 
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PROGRAM 


Variables 

X(25@), Y(250) Coordinates of each segment of worm 
LENGTH Length of worm plus one 

SCORE Player's score 

HEAD Index for accessing worm’s head coordinates 
XHEAD, YHEAD Coordinates of worm’s head 

OBJX, OBJY The object's coordinates 

XDIR, YDIR Amounts to add to coordinates when moving 
COUNT For timing movement of object 

ii Temp 

Program Structure 

Lines Function/Activity 

62 — 180 Initialise 

220 — 360 Main loop 

400 — 600 Front screen 

648 — 690 Game over 

730 — 770 Victory to player 
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MEGAWORM 


Initialise game 


6a INK 2, 2 1 

70 LS os INK @ , @ : BORDER @ : FAPER @ : FEN 1 

8a 5 DIM Y CalS@) 

9 : SCORE = @ 

1Qw 

118 

126 TO; INE 14 For LOCATE 6 , 10 5 PRINT "Me 


GAWORM" s  NEX’ 
LAG FOR T = @ 1O 1008 STEP @ : SOUND 1, T , 1. 7.8, 
, (T / SO) s NEXT 7 


140 

18a 28 : YHEAD = 1 

16 | TO 40 : LOCATE To , to: PRINT CHRE (2a 
To, 25 2 PRINT CHR# (206); s NEXT T 

179 2 TQ 24a LOCATE 19, Tor PRINT CHR (206), + SF 

r CHR C206) : NEXT T 

18@ ORJY = 6 « XDIR = Los YDIR = @ : FOR T # 4 1 

me 2M 2 Y CT) @ 10 8 NEXT Tos COUNT = 1 
Main program loop 
198 4 
‘aunt X (HEAD) XHEAD + XDOTR & Y CHEAD) # YHEAD + YOIR & PEN 


tor LOCATE X CHEAD) . Y (HEAD) & PRINT CHR& C22) 3s XHE 
AD « XHEAD + XDIR : YHEAD = YHEAD + YDIR 
HEAD = HEAD + Jo: TF HEAD > LENGTH THEN HEAD = 1 
LWOCATE X CHEADD 4 Y (HEAD) » FRINT !y" 
bom RCE Yo 
pom NS" THEN XDIR = to: YDIR = @ 
oe "." THEN XDIR = -1 2 YDIR = Q@ 
ae NZ" OR A oe "2" THEN YDIR = 10: XDIR = @ 
2 "A" OR AS = "al THEN YDIR = -1 2 XDIR = @ 
COUNT =o: SPEED INK COUNT + 10, COUNT + 
= M@ THEN LOCATE GRIX , ORJY : PRINT "," 
et RIO CL) & 7 + os OBJY = RND (1) * 22 + 
YT (ORIX * 16 -4 4, (26 ~ OHIY) * 16 -4) > @ THE 
ZLGE LOCATE QORIX , QHIY : PEN 2 os FRINT CHRE Bi 
7 a mh yg 9 4 By md , 40 + SOUND 1 , BOW, 10, 
lL. do: FEN S 


Te HE AD a CINT (OBRUX) AND YHEAD = CINT(QORJY) THEN COUN 


Torloe ; SCORE + 20 : LENGTH = LENGTH + 4 2 TF LEN 

GTH > 250 THEN GOTO 730 ELSE SQUND 1 , e2Qo, iS: F 

OR T = LENGTH ~ 4 TO LENGTH + X (T) = 2 (T) = 2 2 NE 

S442) ¢ OR XHEAD = 39 OR YHEAD « 2 OR YHEAD » 24 T 
wi") 

‘ea } (XHEAD + XDIRK) * 16 ~ 4 , (26 — (YHEAD + YDIR 


* @ AND XHEAD «<> CINT (OBIX) AND YHEAD «< 
THEN GOTO 65® 


») * 16 ~ a) 
CUNT 40] 
OQ GOTO 22 
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610 
6408 
630 
6608 


67 
684 


698 


7B 
TAB 
74 


TIO 
768 
778 


Front screen 


FRINT "ga wDO,YOU,AWANT INSTRUCTIONS ,’?" 

At = INKEY# 3 IF AS = "" THEN GOTO 410 

IF Ag = "Y" OR AF = "y" THEN GOTO 430 ELSE RETURN 

jal. € PRINT " vaaaaaaaana INSTRUCTIONS" 

: FRINT ".4aMOVE,. THE .WORM,AROUND, THE .SCREE 


N" 
INK to, RND (1) * 26 

PRINT “sss AND.COLLECT.ATHE OBJECTS... 4TF" 

INK 1) , RND (1) * 26 

FRINT "aa YOU ACRASH, INTO. YOURSELF OR. THE" 

INK 2). RND (1) * 26 

PRINT "auaWALL ow, «THE .GAME.IS.OVER" 

PRINT "a. «aWHEN,YOU,COLLECT.AANAORJECT" 

FRINT "yaw YOUAMAY .SHED,SOME SKIN. " 

INK 1). RNO (1) * 26 

PRINT "wae Ao at aUPaaanaea 2) a DOWN" 

INK 1 ,18 

PRINT “Qunas a FabEP T a 0 a RIGHT" 

LOCATE 1 9, 22 2 PRINT "yw.PRESSAANY REY. TOACONT TINUE" 
A$ = [NEEYS : [FF As = "" THEN GOTO Seo 

TNE 404 44 

RE TURN 


Game over 


AS = INEEYS 3 ITF Ate" " THEN GOTO 648 

ENT 1 , 127 , 2 , 2s: SOUND 1 , 200 , 200 , 1,1, 3 
FOR T = 1000 10 SQ@0 STEP - S : LOCATE 40 , 25 s PRINT " 
a" ¢ SOUND 1,7,%85 », 153 , 2,5, 2 « £ & NEXT T 

MODE @ : LOCATE 6 , 10 : INE 2@ ,18 , 11 3: PEN 2 s PRINT 
"GAME OVER! 

FOR T = 1 70 100@ : NEXT fos SPEED INK 10 , 10 : PRINT 
",You,scored," —§ SCORE 3 "“asssaapOints" 


AF = [NREYS : TF AS = "" THEN GOTO 698 ELSE RUN 


Player wins 


PEN @ 

MODE @ : LOCATE 7 os PRINT "CONGRATULAT TONS" : LOCAT 

od oy 10 5 PRINT ",YOU,HAVE,GROWN, TO" os PRINT ",YOUR,F UL 
ENGTHA!«" & FOR T = S00 TO 680 STEF S s SOUND @ , T , 

5 4 @, OW, W@W: SOUND 1 ,.T, 25,315 ,1,1~;, 21 


SOUND 2, 602 - T + 500 , 25 , 15 , @ , 1 4 1 8 NEXT T 


PRINT “3 SCORE - “.!" 
AF = ae = "THEN GOTO 770 ELSE RUN 
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ChexSum Tables 


68 = 674 = S40 = 
70 * 1269 = SQ = 
BO = LS94 aa hi x 
90 = 1625 = 15428 S7Q = 
m OS es A919 SHO 
S30 = GATS BOQ ms 

360 = 442 600 

370 = @ 61 = 


2273 640 = 
630 = 
660 
670 = 
680 = 
690 = 
FAQ x 
720 = 
74 = 


SH 
iN S 
Sss 
# HB 


- 

fia 

;S5 
HOR BR EER 


490 = 7S = 

SOO 7hQ = 

Sila = 770 = 

Sel) a 

SQ = 1966 TOPAL = LBOR66 
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MINOTAUR MASTERMIND 


Round @ 1 Level 1 


t of the Non-Zero 
Brsies is 16 


2EXMZEKERK 


Hale wea 7 1 
8 


DJ 
bees 


ANDO] 


i 
‘ 


x 


Or 
bow: 


CLASSIFICATION: Educational game 


This is a strategic game which will test the brain power of even the 
most experienced masterminds. The challenge is to guess a secret 
number between @ and 1800 by working your way through a maze of 
numbers and symbols without being gobbled by the minotaur. 

Your score is the sum of the digits that you step on — so the lower 
scores are better. When you reach the exit at the right end of the maze, 
you get a chance to guess the secret number. The non-numeric sym- 
bols have different effects when stepped on: 

‘Xx’ — supplies a clue 

‘2’ — has random value 

™ __ Randomly alters your score 

To move: ‘P’ moves up, ‘:’ moves down, ‘O’ moves left, ‘@‘ moves 
right, ‘0’ moves up and left, ‘minus’ moves up and right, ‘L’ moves down 
and left, ';; moves down and right, and ‘T’ is pressed when you are 
trapped and it is impossible to move. 


PROGRAMMING SUGGESTIONS 


Minotaur Mastermind could be made into a very complex game by 
adding more clues (lines 1198 — 1490) and by adding more symbols. 
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PROGRAM 


Level of difficulty 


Round No., last score, total score 


Secret number 

Digits of SN 

For flashing effect 
Character under minotaur 
Character under player 
Player’s row and column 
Number of clues 

Truth array: clues used 
Digits of player's 
Minotaur’s row and column 


Program Structure 


Variables 
LD 

R, LS, TS 

SN 

D1, D2, D3 
C,Q 

CU 

CP 

PR, PC 

NC 

T(10) 

G1, G2, G3 
MR, MC 
Lines 

10 —10@ 
120 —210 
230 — 400 
420 — 740 
760 — 860 
880 — 1060 
1080 — 1180 
1190 — 1490 
1510 — 1550 
1570 — 1650 
1670 — 1680 
1700 — 1710 
17308 — 1820 


Function/Activity 
Initialise 

New round 
Editor/main loop 
Recognise allowed moves 
Check move 

Move minotaur 
Player on ‘?’ 

Player on ‘X’ 

Player on ‘**’ 

Game over 

Blank message area 
Update score 

Guess secret number 
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FUN TAU PIAS TEE 


18 
a) 
Bil 4) 
4 
ba) 
2 


7a 
82 
90 
1a@ 


Initialise game 


RANDOMIZE 1 TMe. 
MODE at : 6 


s INK @.@ : INK tyd6 s INE 2 20 a Tk 
@: PEN 23 ¢ 
(8) 4 MINOTAUR ,MAS TERM IND" 

s PRINS & PRINT s PRINT "Lavel.wof Dif ficultyys de 


Tr Lede 


ae FRINT Lol 

V1 26,8 
YMBQL. 
340,10 


I Lde9 THEN S@ & 


: 73, 1 GE sO, 108, 198,198, Qos 
O04 108, b, L2,24,0,24,0 3 " SYMBUL. 160, Q,A192, 60,2 
»O yO x SYMBOL. 168,16,56,124,254,124,56,16,8 
FOR isl | 


) 8 : PRINT =: NEXT : PRINT SFA ROD) gy "At AaNYs 


TF ITNRKEY: " THEN 8@ 


; ( 2 FOR i=l TO 10 : t(id=@ : NEXT = 
INT (RND ¢ f H1MOD) s mses os GIeINT Csm/100) +: di 
L¥#1BB)71B) + NT Can—dl #1 OO~d2*1@) 


: snes 
Apitete d 


New round of game 


messpe me 8 a 
TO 2) 2 se(iy 3) 


NEXT os NEX 


'O 20 2 kI=INTCRND CL) #15) 
210 THEN PRINT CHR® (ki4+48) 2 ga Ci 


1 HEN PRINT CHR (C144) s ge(i,j) 144 3° 6 


Jedd THEN PRINT CHR CLS 
CHR# C16OM) 2 se (i,j) #160 
NEXT 8 ee 

ge (pe #43 3° LOCATE peapr : FEN do: FRINT "@O" =: le=@ 
med og L.OCe » PEN 2 oo: PRINT CHRE C156) 
#168 2 LOCK s PRINT CHR# (168) : cp=49 


rs osedi.jJd@1S2 2 GOTO 18 


: PRINT "“Y.Round "ses SPACES (8) 3 "Level." ald 


Editor and main program loop 


THEN se (pe,prodscp os LOCATE peypro: PRI 
qelo os GOTO 290 
: LOCATE pe wpr ot PRINT CHRE (2 


» cpeed 
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7EQ 
76 
77% 
7830 
798 


THEN 740 
THEN 428 
THEN 462 
THEN S@@ 
THEN 700 
THEN S8@ 
THEN 620 
THEN 660 


IF x: _" 
TF x e="Q" 
TE x dey" 


[F ge (pe ypret) e382 THEN 240 
is2cp~43 

sa (pe .pr dee 2 LOCATE pe,pr 
GOTO 768 

LF ge (pe-d,pr) 
Ls p43 
Se CpG 4 prs 
GOTO 768 
IF ge (petlyprd) #32 THEN 248 
Lee: py Ab ES 
sc (pe .pr): 
GOTO 768 
LF ge: Cpe yprcb dl ) 
Lerc p43 

se (pe 4 pr) 3 
GOTO 768 

[IF se (peti.~pret) #32 THEN 240 
Jac p-43 
go (pe pr) s 
pet 

GOTO 768 
IF ge (peed apren dt) a2 THEN 240 
isecp~43 

sa (pe ,.pr)32 2 LOCATE pe,pr 
powd 

GOTO 76a 

IF sa (pert, pr+i) #32 THEN 240 


Sé THEN 248 


LOCATE pe.pr 


: LOCATE peypr 


2 THEN 242) 


2s LOCATE pe,pr 


LOCATE pe ypr 


isecp-48 

sa(pe pr) 32 3s LOCATE pe.pr 
pre+d 

GOTO 768 

IF se (peti .~pr+i) #32 THEN 240 
ls=cp~48 

ga (pe pr) 22 ¢ LOCATE paypr 


preted 
GOTO 768 
GOSUE 880 2 IF (mrs opr) OR 


Check move 


apse (pe, pr) 


TF (ies9) OR (isl) THEN Ilo=@ 


IF ce se THEN GOSUEB 1050 
IF cp#144 THEN GOUSUE 1080 
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*" THEN S40 


Recognise allowed moves 


THEN 74@) ELA SSe 


p48 QR kie9 THEN ki=@ 
letk lei a-id HEN GOSUB 88Q 
rtetkd os GOSUE 1700 

(orem) AND (pe=me) THEN 157@ 
Bo goTO 2358 


Move minotaur 


878 2 
88 tiem 
89 TF ome 


22" 
« THEN 920 
THEN me=mre=t 2 GOTO 98a 
GOTO 9B 
THEN 9S5Q) 
meena tl 2 GOTO 98O 


imi Spr THEN mir pet ELSE mies mero 1 
tiat2decu s LOCATE til,t2 os TF cush8 THEN t3=1 ELSE t 


tag PRINT CHR Cow) 

sen: CMe; y mie ) 

mero s LOCATE ma,mre of PEN @ os FRINT CHR C136) 
IND 1,200, 15,15 

“WRI 


Player on ? 


TeINTORND C1) #10) 8 ge (pe pr) @i+48 @ LOCATE pepe oo PEN 


2 FR IN Ci +43) 


ri +4 os 
Player on X 
1W7O oo: 
1M80 se(pewprd 48 a LC TE pe pr os PEN to: PRINT "@" 3s FOR i 


#1 QO TO 200 SVE 1Q3Q 2: SOUND 1,42,.8,15 8 NEXT 
{O90 IF me THEN LIL 9@ 
1100 ee oad tar ai 2 TF t€(k2) #1 THEN 1100 
LL yet oa ome c+ 


Ld ee oN ke GOTO DESO, LISO, LIPO, LAA, 1 26U,LA9B,AS4O, 1 S6M,1410 


1138@ So: FRINT "Sum,of,.Digits,of,Gecreat! 3s 
INT "Number ,Bqual ea! 4 

1140 : RETURN 

1150 So: PRINT "Secret,Number ,iey 4 

Lie THEN PRINT "Even" : GOTO 118@ 

t 


Oran) 2 jek 200 2 TF 32 @ THEN j=@ 

Lage 

“E : FRINT "Number, .is.zketween's 3 @ LOCA 
"and" sk og RETURN 
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LOCATE 4,3 : PEN 3 s FRINT "Number,isa" 4 
JF env = INT (sn/S) THEN PRINT "Divisible" « GOTO 1250 
PRINT "Not ,O0ivigsible" 
LOCATE 4.4 2 PRINT "byw" a RETURN 
| IF d@el THEN L#d2 
THEN L=d3 
; 4,3 8 PEN : PRINT "Largest,Digit,yinathe"™ 2 LOC 
y4on PRINT “Secret Number vies "al os RETURN 
“OCATE 4,3 5 PEN 3 s PRINS "First Diqit,.in,the, Secreak" 
: LOCATE 4,4 2 FPRINT "Numberwisa's 
tf dieS THEN PRINT "Larqer,than,S'" : GOTO 
“ dileS THEN PRINT "Less,than,s" 2 GOTO 1 
"equal ,.to,.c! 


a4) 


So: PRINT "Sum,of,.Firgst.and,Third' sob 
"NiqgiteviBea"s 

PRINT RE TURN 

LOCATE 4, "PEN 3 FRINT "One,of.the,Digits,inyathe” s 

LOCATE 4, 4 ® PRINT "Secret .Number vious 

ke INT CRND CL) #3) of IF k= @ AND sne99 THEN FRINT cis GOTO 


AND sne9 THEN PRINT cao: GOTO 14008 
dh 


1488 
(410 SNA os RRA) "Proce kt of y theories Zero! 9 
INT "Digits,.ig's 
THEN FROIN cddos GOTO L490 
[HEN PRINT d2o: GOTO 1492 
GOTO L498 
INT dios GOTO 149@ 
THEI di*eds os GOTO 1498 
THEN FRINT ciede » GOTO 1498 
Cec echs 


L422 
14.50 
1440 
LA 
L460 
1470 
1432) 
1498 


Player on * 


pe, prod #48 2 LOCATE pe pros FEN tos FRINT "@" 

Bek. THEN RED TCI 

NT ORND CL) *#10@) 2 CF FeSO THEN teeter (Os GOUNO 1 Md 
My LS or RE TURN 

SLO THEN teetetS0 : GOUND 1,40, 45,18 2 RETURN 
er s SOUND ©, 200,15, 1% * KETURN 


Game over 


ISG os 
LS 7a ; 
1588 


oF prem AND pes 
a=) 70 (7 8 PRINT 
2 RR 
"you,have,featenvthevminotacue" a FRINT "Your .seor 
6.184" Ets 
"ana tara" ,yrounds" : GOTO 16.340 
j se] FU U7 a PRINT SPACES C4 gM TINO TAMIR WEIS yal TING T et, 
WKAWHINS' os MEXT os PRIMI 

Lov PRINS "The wsecret .oumber 
Loa FARIMY & 
doa fF UN RE 
Los WU 


“N 1618 
£(9) g'Cangratulationg!,." a bs 


LS98 


Law 
Lala 


swags," 9 sn 
KIWT “Hit,zany,key,for ,another ,qame" 
ee" " THEM 1648 
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1660 
1678 
1680 


1698 
170@ 


1710 


Blank message 


Lah os PRINT SPACE# (79) 


Update score 


s FEN 20: PRINT "Total,Score," stay TAR C21) 9" 


Tn SBOE CON OB a, 
WRN 


Guess secret number 


LOCATE 4,4 2 FEN So: PRINT "Guess,at,the,.Secret,Number" 


LOCATE 4,4 8 INFUT "and,press RETURN" 5 k& 
te VAL Ch) og IF isan THEN 157 
QLeINT C410) s QeeINT CCinmagi #1) /1B) s 


i 


i 
J 
= 
“a 
8 
s 
* 


CLUS os FIINT 2 TF ciegi THEN PRINT "Firet,digqit,Correct" 
PRINT 


"Second Digit,Correct! s PRINT 
"Third,Digit.Correct" 
Soe AND d&aoqa THEN FRINT "No wDai gi taal 


FOR ted TO QW s MEXT 
reaped) os GOTO 128 


= AQ x 
2s 440 
i 4) 
2 460 
et 47 
- 48Q = 
= 490 
= 00 = 
m= 810 3 
= 520 = 
= S3Q * 47:2 
at S40 = w4G4 
= S8Q = 1273 
= Beg s 
e S70 = 
= 5aQ = 
= 590 = 
oo 600 = 
2Q a 610 = 
‘ = 62Q = 
= 620 = 


_ 
— 
© 


1Q2 
1Q3@) 
1048 


HH ER OR 


HH ER 


g 


on 


2OOe 
1916 
2948 
4S 
@ 
1803 
1620 
SO94 
L664 
1648 
3066 
1634 
1666 
1634 
4Q69 
SOs e 
1447 
1789 
S312 
688 
2@4 
@ 


S862 
L356 
Q 

6814 
1305 


Hod HE GH RR RR HOR OE 


He BOE OB 


Ho OR 


GH ER HHH HE OE 
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1460 = 
1470 = 
1480 = 
149Q = 
LS = 
1510 = 
L820 = 
1530 = 
1540 = 
1LS3Q = 
L360 = 
1570 = 
1598Q@ = 
1590 = 
1600 = 
1610 = 
Loe x 
1630 = 


1640 
1650 
1668 
1670 
168 
1690 
1700 
L71@ 
1720 
1730 
1748 
1750 
1768 
1770 
178@ 
1790 
1808 
181 
L820 


TOTAL. 


R 


2154 


4ABBOD 


FIFTEEN PUZZLE 


CLASSIFICATION: Educational 


Use the cursor movement keys to arrange the numbers into order with 
the minimum number of moves. Press ‘Q’ to quit the game. 


PROGRAM 
Variables 


CHARS(16) 
XCOOR(16), YCOOR(16) 
POSITION(16) 
DISPLAY 
FEEDBACK 
WIN 

Ri, R2 
SPACE 
COL(16) 
COUNT 

T, A,B,C, D 


Defines 16 character strings for the numbers 
Each number’s coordinates 

The number contained in each position 
Flag for displaying move number 

Flag for audio feedback each move 
Can win if random set-up 

Random numbers 

Blank position 

Colours for each number 

Count of moves 

Temps 
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Program Structure 


Lines Function/Activity 

40 Call initialisation 

86 — 190 Main loop 

230 — 280 Games won 

320 — 890 Character/variable initialisation 
900 — 1240 Screen/other initialisation 

1276 — 1348 Character block print 

1388 — 1390 Game over 
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FIFTEEN FUZZLE 


4 


18 


19 


208 
230 
240 
258 
260 
278 
280) 


Call initialisation routine 


GOSUB 320 + COUNT = 1 
Main loop 


A$ = [NKEY# : IF A# = "" THEN 80 

TF AS = "QQ" OR AS = "Q" THEN 1380 

IF DISFLAY THEN FEN 2 : LOCATE 1,1 2 FRINT "MOVE.#" 3 C 
QUNT 

IF ASC (AS) = 240 AND SFACE > 4 THEN FOSITION(SFACE) = F 
OSITION (SPACE - 4) 2: POSITION(SPACE ~- 4) = 16 : SFACE = 
SPACE ~ 4 2 Z = FOSITION(SFACE) : X = XCOOR(SFACE) : Y = 
YCOOR (SPACE) : GOSUER 1270 ELSE 13a 

Z = FPOSITION(SFACE + 4) : X = XCOOR(SFACE + 4) s Y = YC 
QOR (SPACE + 4) 4 GOSUR 1270 

(IF ASC (A$) = 241 AND SPACE «< 13 THEN FOSITION(SFPACE) = 
FOSITION(SPACE + 4) s FOSITION(SPACE + 4) = 16 : SPACE = 
SFACE + 4 : Z = FOSITION(SFACE) +: X = XCOOR(SPACE) +: Y 
= YCOOR(SFACE) : GOSUB 1270 ELSE 150 

Z = FOSITION(SPACE - 4) : X = XCOOR(SPACE - 4) : Y = YC 
QOR (SPACE - 4) : GOSUR 1272 

TF ASC(AS$) = 242 AND (SPACE «<> 1 AND SFACE <> & AND SFA 
CE <> 9 AND SPACE <> 413) THEN FOSITION(SFACE) = FOSITION 
(SFACE ~ 1) : SPACE = SPACE - 1 3: POSITION(SFACE) = 16 E 
LSE 17 

Z = FOSITION(SFACE + 1) : X = XCOOR(SFACE + 1) : Y = YC 
QOOR (SPACE + 1) : GOSUR 1270 1: Z = FOSITION(SFACE) +: X = 
XCOOR (SPACE) : Y = YCOOR(SFACE) : GOSUR 1270 

IF ASC(AS) = 243 AND (SPACE <> 4 AND SFACE <> 8 AND SPA 

CE <> 12 AND SFACE <> 16) THEN FOSITION(SFPACE) = POSITIO 
N(SFACE + 1) s SPACE = SPACE + 1 3: POSITION(SPACE) = 16 

ELSE 68 

Zo POSITTON(SPACE ~ 1) s X = XCOOR(SPACE - 1) s Y = YC 
OOR(SFACE ~ 1) : GOSUE 1270 1: Z = FOSITION(SFPACE) +: X = 
XCOOR (SPACE) + Y = YCOOR(SPACE) : GOSUR 1270 

COUNT = COUNT + 1 2 FOR T = 1 TO 16 8 IF FOSITION(T) = 

T AND WIN = 1 THEN NEXT T : GOTO 230 ELSE 8a 


Player wins 


MODE @ : SOUND 1, 200, 100, 15, 1, 1, 1 

LOCATE 3, 8 s PEN 7 : FRINT "CONGRATULATIONS!" 
FEN 10 s LOCATE 14, 1@ : PRINT "Youwdidwit win" 
PRINT COUNT; "MOVES." 

FOR FT = 1 TO 3000 2 NEXT T 

RUN 


Character and variable initialisation 
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MODE 1 
BORDER @ 
FAFER @ 
INK @, @ 
INK 1, 18 
INK 2, 15 
INK 3, 2 
SYMBOL, 240, @, Q, 96, 96, 96, 96, 96, 96 
SYMBOL 241, @, @, 3, 3, 3, 3, 3, 3 
SYMBOL 242, @, Q, 99, 99, 99, 99, 99, 99 
SYMBOL. 243, 96, 96, 96, 96, 9b, 96, 96, 96 
SYMBOL, 244, 99, 99, 99, 99, 99, 99, 99, 99 
SYMBOL 245, @, @, 248, 248, @, @, @, @ 
SYMBOL 246; @. @. 248. 248, 24, 24,24, 24 
SYMBOL 247; @, @, 24, 24, 24, 24, 24, 24 
SYMBOL 248, 248, 248, 24, 24, 24, 24, 24, 24 
SYMBOL 249, 248, 248, @, @, @, @, 248, 248 
SYMBOL 250, 24, 24, 24, 24, 24, 24, 248, 248 
SYMBOL 251, 248, 248, 24, 24, 24, 24, 248, 248 
DIM CHARS (14) 
FOR T = 1 TO 16 
READ A, By, Cy D 
CHARS (T) = CHR (A) + CHR#(B) + CHR#(C) + CHR¥(D) 
NEXT 1 
DATA 241, 32, 209, 32 
DATA 32, 246, 209, 249 
DATA 32, 246, 32, 251 
DATA @41, 247, 32, 248 
DATA 241, 245, 32, 284 
DATA 241, 245, 209, 251 
DATA 32, 246, 32, 149 
DATA 241, 246, 209, 251 
DATA 241, 246, 32, 254 
DATA 242, 246, 244, 250 
DATA 242, 32, 244, 32 
DATA 240, 246, 244, 249 
DATA 240, 246, 243, 281 
DATA 242, 247, 243, 248 
DATA 242, 245, 243, 251 
DATA 32, 32, 32, 32 
DIM XCOUR (16), YCOOR(16) , POSITION (16) 
27 = 1 TO 16 ¢ FOSITION(T) = To: NEXT T 
27 = 1 TO 4 
N= 1 70 4 
OR(4 * (Tf = 1) +N) = N #2 + 18) 
OR(4 * (T= 1) +N) = T # B+ 8 
No: NEXT T 
PEN @ 
PRINT TARCI@) "FIFTEEN.PUZZLE" 
FEN 4 
LOCATE 4,9 + PRINT "DISPLAY MOVE .NUMBER , (Y/N). 
A’ = INKEY$ : IF A# = "" THEN B2@ 
840 IF AS = "Y" OR AS = "y" THEN DISFLAY = 1 
B50 FRINT +: PRINT TAR(4) 3: “AUDIO,FEEDBACK ON, (Y/N) 47 
860 Ask = INKEY# : LF A = "" THEN 860 
870 IF ag = "Y" OR A = "y" THEN FEEDBACK = 1 
Baa PRINT ¢ PRINT TAR (4) "RANDOM,SET-UP (Y/N) 4?" 
890 OA = INKEY# : IF AS = "" THEN GOTO 890 ELSE IF A# 
OR @& = "y" THEN WIN = 1 ELSE WIN = @ 
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Screen and other initialisation 


t 

MODE 1 

FOR T = 1 TO 400 STEP 5 
MOVE @, 20a 
DRAW 320, T, 
MOVE 629, 20a 
DRAW 321, T, 
NEXT 

LOCATE 16, 7 
PEN 3 

PRINT CHR (214) 

FOR T = 1 T0 8 

PRINT CHR (14°) 4 

NEXT T 

FRINT CHR# (215) 

LOCATE 16, 8 

PRINT STRING#( 10, CHRE(143)) 

LOCATE 16, 9 

PRINT STRING#( 10, CHRE(14%3)) 

FOR T = 10 TO 17 3 LOCATE 16, To: PRINT CHR#(143) + "Va 
aawane + CHRE(L43)° 2 NEXT T 

LOCATE 16, 18 3 PRINT CHR# (21%) 3 

FRINT STRINGS( 8, CHR#(143)); CHR (212) 

PAPER 3 : PEN @ : LOCATE 18, 8 : PRINT "PUZZLE" : PAPER 
®: FEN 4 

IF WIN = @ THEN GOTO 121@ 

FOR T = 1 TO 3@ 


RND(1) * 2 


h3 
+ 
_ 


RND(Q) * 2 


B 
+ 
i 


Rio = CINTC RND(L) * 15 + 1) 
R2 = CINTC RND(1) * AS + 1) 


QO1 = POSITION (R41) 

O2 = POST TION(R2) 

FOSITION(CRI) = O2 

POSTTIONCR2) = Ct 

NEXT T 

FOR T= 1 TO 16 8 TF POSITION(T) = 16 THEN SFACE = T EL 
SE NEXT T 

DIM COL (16) 

FOR T= 4 TO 16 8 COLC(T) = CINTC RND(1) * 2 + 1) : NEXT 
T 

FOR T = 1 70 16 : Z = POSITION(T) = X = XCOOR(T) : Y = 
YCOOR(T) = GOSUB 1270 s NEXT T 


Character block print 


FEN COL (Z) 

COUNT = COUNT + @.5 

IF FEEDBACK THEN PRINT CHR#(7) 5 
LOCATE X, Y 

PRINT LEFT&#¢ CHARS(Z), 2 ) 
LOCATE X, Y+ 4 

PRINT RIGHT#( CHARS(Z), 2 ) 
RETURN 
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380 


1290 END 


Game over 


ChexSum Tables 


A es 

85 

80 = 

FQ 
1QQ * 
110 = 
L2Q) = 
LSQ 
14Q = 
LQ = 
LQ 
L7Q * 
L8Q = 
L9Q 
OU) oe 


HHRB RG SE 


Hoa oH 


{O75 


LSQ67 
6271 
12661 
Li74e 
LeSos 
LA7AS 
& 747 
ih) 
117@ 


o4Q = 
SSQ = 
S60 = 
S70 = 
SQ x 
SIO = 
600 = 
610 = 
620 = 
O3Q = 
S40 = 
OQ 
660 = 
&7Q ms 
680 
69Q 
7OQ 
7AQ = 
720 = 
TiN 
740 = 
7TEQ = 
Je 
77Q = 
78Q = 
79Q 
BOQ = 
810 = 
B20 = 
BS x 
B40 = 
850 = 
B60 = 
870 = 
880 = 
890 = 
895 = 
POO = 
910 = 
920 = 
930 = 
94Q = 
95Q = 
960 = 


LOCATE 1,3 2 PRINT "bye,for.now" 


48980 


B12 
875 
814 
871 
84:5 
P17 
820 
918 
Bod 
G17 
Bli2 
FBS 
GAS 
924 
916 
708 
#2476 
2IBS 
987 
1W13 
e914 
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HOE B 


Hog HOR ER 


8 


fe HEH 


fo Gog 


Hae ROW OR 


fe 


Tl 
# 


1816 


S634 
6087 
a 
B94 
1710 
1856 
704 
1465 
963 
1469 
204 
a 
1620 


Ge 


257869 


MIND QUIZ 


CLASSIFICATION: Memory game 


The secret code is a sequence of four shapes chosen from six. Crack 
the code in less than eight attempts and you have won the game! 
A circle means that you have the right shape in the wrong position 
and a coloured circle indicates the right shape in the right position. 
Use the keys numbered ‘1’ to ‘6’ to select a shape. The ‘DEL’ key 
can be used to change the shapes entered. 


PROGRAMMING SUGGESTIONS 


The game could be made more difficult by increasing the number of 
objects included in the code. Alternatively, if you find this game a little 
difficult, then try allowing extra guesses, or having different levels of 
play. 
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PROGRAM 


Variables 

CHRVAL(6) Character values of shapes 1-6 
COLS(6) Colours for shapes 

ANSNUM(4) Answer in digits 1-6 

ANSWER(4) Answer in character values 
GUESS(4) Player’s guess 

LEVEL, COLUMN Level (@-6) and column (9-3) 
CORSHP No. of correct shapes in GUESS(4). 
CORSHPPOS No. of correct shapes in correct positions 
MESS Message string 

T(6), |, J Temps 

Program Structure 

Lines Function/Activity 

10 —415 Initialise 

430 — 400 Editor 

1000 — 1040 Check Guess 

1060 — 1120 Print Result 

5000 — 5020 Print Message 

8000 — 8050 Game lost 

9000 — 9040 Game won 
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MIND QUIZ 


Initialise game 


1@ Meta Acs INK @, 15 


Ss INK 1, 4 2: INK 2, @ + INK 3, 3 
@ s: BORDER 11 1: CLS 


2 

ae y NCATE 4, 2: PEN 1 

4 SOTO 108 

SQ INT GHR&C S51 03 STRINGS( 7, 154 )3 CHR#( 157 23 CHRE 


( 10 3 STRINGS ¢ 9, Bs 

6Q FRINT C 5( 149 )4 STRINGS( 7, 32 dy CHRE(C 149 )4 CHRE ( 
1M); STRING#( 9, B Dy 

7@ PRINT CHREC 149 )2 STRING#( 7, 32 03 CHRO 149 09 CHR ¢ 
1Q@ 03 STRING#( 9, 8 Ds 

9B RE TURN 


102 T= 1 TO 7 s GOSUB SO : NEXT 
11@ NT CHR#E( 147 )4 STRINGE(C 7, 154 03 CHR#( 155 ) 


128 LOCATE 4, 2 2 FRINT CHR#( 150 )3 STRING#( 7, 154 )3 CHR 
OC 156 ) 

13 PEN 2 3 LOCATE 2, S 

148 TS @ CHRE(C 10) + CHR#( 10 ) + CHR#( 8 ) 2 PRINT "M"g T 
ey " I's T#y "N" 5 TE "D's T#; erie | T#y "Q's T#s "Uys THs 

wong THs Ly ay 

150 FEN to: FOR { = 7 10 22 : LOCATE 22, [os PRINT CHR#( 14 
9 5 SPACE 7 Ys CHREC 149 ) & NEXT 

16a LOCATE 27, 2 2 PRINT CHR#( 150 ); STRING#( 7, 154 )4 CH 


R#( 16 ) 

17@ LOCATE 27, 3 2 PRINT CHRE( 149 )3 STRING#( 7, 32 03 CHR 
eC 449 ) 

188 LOCATE @7, 4 8 PRINT CHREC 149 )3 STRING#EC 7, 32 03 CHR 


#C 149 


198 LUCAT 74 Sok PRINT CHR ( 147 )4) STRING#( 7, 154 74 CH 


ve) Q) 7 os PRINT "tye,"s CHREC L435) ; 
RAB (Moe PRINT "@amy"g or FEN 2 2 PRINT CHa CO aati 
eal LO A Ve Loon PRINT "Sy," og FEN & oa PRINT CHREC 214 


F 
: PRINT "4,2,."4 CHRE( 159 ) 
19): PRINT "Sye,."s ¢ FEN 2: PRINT CHRE( 42 


eek PRINT "Oy," 2 FEN So: PRINT CHRE( 228 
) 

268 PEN do: LOCATE 24, 7 3: FRINT "Right" + LOCATE @4, 8: F 
RINT "Shar 

278 LOCATE 4, 14 2 PRINT "Right" 2: LOCATE 24, 15 2 FRINT " 


Shape" 
280 LOCATE PRINT "and" » LOCATE 24, 17 : PRINT "Ri 


Hy 4, 18 : FRINT "Fog’n" 
ée' LOC S 26, 10 ¢ FRINT CHRE( 230 ) 
lth, 2 8 PRINT CHR ( aah) 


’ TINT ¢ RND( 1) * 6 + 1) 
: To) <* 2 THEN TC fT ) 4 : ANSNUMC Ko) = Tos ANSW 


ar) 
Bees eae 3 THEN 310 
EaG~ hrs) CHRVAL ¢ 2) = 245 2 CHRVAL ( 3 ) = & 
CHRVAL ¢€ 4 ) = 159 s CHRVALC & ) = 42 5 CHRVAL CO & ) 
3 


FOR To = 1 10 4 
ANSWER ( To) = CHRVAL ( ANGWER( T ) ) 
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41@ 
415 


998 

LOB 
1Q18 
1820 
L358 


1040 


1@Sea 
1468 
1870 
1088 
1998 
1108 


{110 
L128 


4990 
SQV 


SO2Q) 


NEXT 
COLS( 1) = 1: COLS( 2) = 2: COLS( 3) = 3: COLS( 4 
>= 1s: COSC GS) = 2: COLS( 6) = TB 


fw 


IF INKEY( 79 ) = =1 THEN 440 ELSE IF COLUMN = @ THEN 43 


@ 

COLUMN = COLUMN - lo: LOCATE S + COLUMN * @, 21 - S #*# kL 
EVEL : PRINT "4" s GOTO SQ 

X$# = INKEY# =: IF X# < "1" OR X# > "6" THEN 430 

PRINT CHR#( 7 )3 © GUESS( COLUMN + 1) = CHRVAL ( VAL xX 
*¢) ) : LOCATE S + COLUMN * 2, 21 —- 3 * LEVEL : FEN COLS 
( VAL.C X# ) ) : PRINT CHR#( GUESS( COLUMN + 1) ) s COLU 
MN = COLUMN + 1 

TF COLUMN = 4 THEN MSG# = "Checking,zyour,answer" s GOSU 
& SQ00 : FOR IT = 1 TO 1000 : NEXT » GOTO 10a 

FOR I = 1 TO 10@ s NEXT +: GOTO 430 


Check guess 
3 


CORSHF = @ 2 CORSHFPOS = @ : FOR tT = 1 TO 4 

IF GUESS( IT ) = ANSWER( IT ) THEN CORSHPFPOS = CORSHPFOS 

+ Y 

NEXT : FOR T = 1 T0 4 

IF ANSWERC To) = GU ( 41) OR ANSWER( [ ) ™ GUESS( 2 ) 
GR ANSWER(C Io) = GUESSC 3 ) OR ANGWER( T >) = GUESS( 4 ) 
THEN CORSHF = CORSHF + 1 

NEXT a CORSHF = CORSHF - CORSHPPOS 


Print result 


IF CORSHF = @ THEN 1080 

PEN 2: FOR IT = 1 TO CORSHP : LOCATE 13 + T, 21 —- 3 *# Lb 
EVEL ¢ PRINT CHR#¢ 230 ) : NEXT 

IF CORSHPFOS = @ THEN 1108 

PEN @ : FOR IT = 1 TO CORSHFFOS : LOCATE 13 + [To + CORSHF 


1 ¢lo~ 3 * LEVEL s PRINT CHR#( 221) 2 NEXT 
COLUMN = @ : LEVEL = LEVEL + do: MSG# = SFACE#( 3S ) os 
GOSUE SOOW s IF CORSHFFOS = 4 THEN 98Q@ 


IF LEVEL = 7 THEN 8000 
MSG# = "Readyvwhen,you,are" : GOSUER S@QWW : GOTO 43a 


[ mane 


PEN to: PRINT SIRING#( 38, 32 ) 
PRINT MSGS 
FET WN 
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79908 
BQO8 
8010 
8820 
BAS0 


BQ4Q 
8A5a 


BI90 
9BOB 
IQ1B 
FB20 


FO30 
FAD 


Game lost 


MSG# = "No,luck,this.ztime,!" +: GOSUR Save 


SUR S000 


: FOR 
QO 2000 : NEXT : MSG# = "Here,is.the ,correct,answer" 2: GO 


FOR f = 1 70 4 : SOUND 1, S@ - 10 * I, 15, 15 
) 


8¢ ANSNUMC I ) 


LOCATE 26 + 2 * IT, 3 : PRINT CHR#( ANSWER( I 


FOR f = 1 170 25@0 : NEXT 


MSGS = "Fress,a,key,for,another,game" : GOSUB 


TF INKEYS = "" THEN 8050 ELSE RUN 


a {| 


PEN COL 


s NEXT 


bel 1414) 


Game won 
3 
MSG# ™ "GUPERB,! Pr brrrrrerrrrtrri 2 GOSUB Sava 
FOR Io = 1 TO 4 : SOUND 1, 20 - S&S * fT, 45, 15 


( ANSNUMC To) ) 


LOCATE 26 + 2% IT, 3 : PRINT CHR#( ANSWER( I 


J= 1 TO 400 : NEXT : NEXT 


MSGS = "BET.AYOU,CAN’ T.ADOWITATWICE,!!" s GOSUEB 


(F INKEY# @ °°" THEN 9040 ELSE RUN 


ChexSum Tables 


1@ 


20» 
*Q os 


280 


ws 
BOQ mw 

im 

Lr) 

— 

st BO2L6 

mL PB 

= 6745 

2 976 

= 2709 

= 176 
4iS = 4902 
420 = @ 
430 = 3393 
435 = 4942 
440 = 2958 
450 = 


Ss 

m~ 
Ss8 5 
fog & oR HR E 


a 
Ss 
al 
8 
i 
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PEN COLS 


: FOR 


SOOO 
1@60 = 1439 
1070 = . 4606 
1080 = 17@1 
1Q9Q = %697 
1100 = $487 
1110 = 1394 
Lea = BLS 
4990 = @ 
SAAD m= LAGE 
SO1D = B96 
S20 = 21 
799Q = @ 
8000 = 74589 
BQ10 = 3904 
BO20 = 2o7S 
BAS50 = 1366 
BQ40 = 8447 
BISH 
8990 = 
9OOG = 
9B1O = 
9O20 = 
9O3Q = 
9040 = 
‘OTAL = 2Q0598 
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CONCENTRATION 


i 

Bes Be Re ge 
i: 
e. 

ot satan 


ta 
ee 
i 


- 
ee 
Ac aene 


CLASSIFICATION: Memory game 


Challenge your opponent to a tough brain battle! You select two cards 
from 18 and, if they have the same number on their opposite sides you 
have a match. Otherwise, they are turned face down again and a 
chance is given to your opponent. 

May the best memory win! 

Use the corresponding letter of the alphabet to select the card you 
wish to examine. 


PROGRAMMING SUGGESTIONS 


For an easier game, use a smaller range of numbers on the backs of 
the cards. 

For a harder game, instead of having two sets of numbers from 1 
to 9, have three sets of numbers from 1 to 6 and make each player 
choose three cards. 

The display would look great with some more colouring for the cards! 
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PROGRAM 


Variables 
PLAYERS(2) 
SCORE(2) 
CPLR 
LASTCARD 
CARDX(18), CARDY(18) 
FLIPPED(18) 
CARDS, BACK$ 
I,J 

CN 

MN 

MSG$(4) 
NUMBER(18) 
Program Structure 
Lines 

10 —270 
280 — 480 
490 — 560 
570 —790 
820 — 880 
890 — 930 
940 — 990 
1000 — 1070 


Player names 

Player's score 

Current player number 
Last card examined 
Co-ordinates of all cards 
Which cards are facing up 
Strings for printing cards 
Temps 

Card number 

Message number 
Messages 

The numbers behind each card 


Function/Activity 
Initialise Front screen 
Editor control 

Flip card 

Cards matched 

Reset card 

Update name and score 
Print message 

Game over 
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CONCENTRAT TON 


282 
298 


308 
210 
320 
330 
348 


350 


360 


Initialise game 


MODE 1 os INK @, 1 2 INK 1, 26 : INK 2, 9 8 INK 3, 24 
DIM CARDX( 18 ), CARDY( 18 ), FLIFFED( 18 ), NUMBERS( 1 
8) 

FOR t= 1 TO 9 

J = INTC RND( 1) * 18 
N 40 ELSE NUMBERS( J ) 
Kk = INTC RND( 1) * 18 
N SQ ELSE NUMBERS( kK) 
NEXT 

FOR T = 1 TO 18 5: FLIFPED( I >) = @ : NEXT 

FOR JT = 1 70 6 2 CARDX( IT) = 1 * 6 = S&S + CARDY( T ) = 
to: NEXT 

FOR I = 7 TO 12 8: CARDX( I) = ( T= 6) * 6 —- & s CARD 
YO TT) * 7 & NEXT 

FOR [To ™ 135 TO 18 8s CARDX( IT) @ ( T= 12) * 6=— Sa CA 
RDY( IT ) = 43 5 NEXT 

CARDS = STRING#( S, 143 ) : BACKS = STRING#( S, 206 ) 
PAPER @ s CLS : BORDER 1 

PEN 1 os PRINT TARC 13 03 "CONCENTRATION" 

LOCATE 1, 10 : INFUT "Name,for,playerwone's X# 1 LF xX 
= "" THEN X# = "NUTCASE" 

IF LEN( X# ) >» 235 THEN 140 


1: IF NUMBERS( J) <> @ THE 
1 os ITF NUMBERS( Kk) <> @ THE 


ii- fi 


met rt 


PLAYERS( 1) = X# 

LOCATE 1, 213 8s INPUT "Name,for,player,.two"'s; X# 2 IF X# 

=" " THEN Xb = "FRUIT CAKE" 

IF LEN( X# ) > 23 THEN 170 

PLAYER®( 2) m Xs 

LOCATE 1, 17 : PRINT "OKA"; PLAYER#( 1 73 "’QANDA'"s F 
" 


LAYER#®( 2); "" 
LOCATE 10, 23 : FRINT "Press ,a,key,.to,beqin" 

IF INKEYS = "" THEN 220 

MSG#( 1) = "Flease,select .first,card” 2 MSG#( 2) = "9 
kK Sweety" 

MSG#( 3) = "Now,select,.a,.second,card" : MSG#( 4 ) = "§ 
ORRY, 4 THEY .ARE.ZNOT.ZA.MATCH,!" 


CLS 
FOR CN = 1 TO 18 : GOSUEB 810 1: NEXT 
CPLR = 2 


Editor/Contro 


IF CPLR = 1 THEN CPLR = 2 : GOSUB 900 ELSE CPLR = 1: G 
OSUB 98 

MN = 1 : GOSUEB 950 

X$o= INKEYS 2 IF X# = "" THEN 31@ 

IF ¢ X# < "A" AND X# > "R" ) AND € X# << "a" AND X# > Ur 
") THEN 308 

IF X# > "R" THEN LASTCARD = ASC( X# ) ~ 96 ELSE LASTCAR 
Ds ASC( X¥ ) - 64 

IF FLIPPED( LASTCARD ) = 1 THEN 3@@ ELSE FLIFPED( LASTC 
ARD ) # 1 os: CN = LASTCARD »: GOSUB S@@ 

MN = 2 2 GOSUB 950 

FOR I = 1 TO 1@@0 s NEXT 


135 


S70 
380 
398 


400 


410 
420 
430 
440 
450 
460 
4708 
48 


490 
SOO 
S1@ 
eed) 
330 
bon) 
Sh 
568 


MN = 3 s GOSUB 950 

XB = INKEY# + IF X# = "" THEN 380 

IF ( X# «< "A" AND X#$ > "R" ) AND ( X# < "a" AND X# > "r 
" ) THEN 379 

IF X# > "R" THEN CN = ASC( X# ) - 96 ELSE CN = ASC( Xs 
> - 64 

IF FLIPPED( CN ) = 1 OR LASTCARD = CN THEN 370 

FLIPPED(C CN ) = 1 : GOSUB Sa 

MN = 2 : GOSUB 950 

FOR Io = 1 TO 18@@@ : NEXT 

IF NUMBERS( CN ) = NUMBERS( LASTCARD ) THEN GOSUEK 58@ : 
GOTO 290 

MN = 4 3 GOSUR 950 

GOSUR 810 : FLIFPED( CN ) = @ +: CN = LASTCARD : GOSUE 6B 
1M : FLIPPED( CN ) = @ + FOR IT = 1 TO 1000 : NEXT 

GOTO 298 


Flip card 


3 

PRINT CHR&( 7) 2 PEN 2 

FOR I = 1 TO $ : LOCATE CARDX( CN), CARDY( CN) + I ~ 

1 

PRINT BACKS 

NEXT 

PAPER 2: PEN 3 : LOCATE CARDX( CN ) + 2, CARDY( CN) + 
» 


PRINT USING "##"3 NUMBERS ( CN ) 
PAPER @ 2 RETURN 


Cards matched 


: 

SCORE ( CPLR ) = SCORE( CPLR ) + 10 : GOSUR 900 1s FOR I 
= 1 TO 18 

FOR J = 1 TO 5 

LOCATE CARDX( Io) + &S, CARDY( I) + J - 1 
PEN 3 s PRINT CHR®( 224 ) 

SOUND 1, 4000 ~ 220 * I + 40 * J, 7, 15 
NEXT 

FOR J = 1 TO 6 

LOCATE CARDX( T >) + J - 1, CARDY( I) + & 
PRINT CHR#( 224 ) 

NEXT 2» NEXT 

FOR I = 18 TO 1 STEP 1 

FOR J = 1 TOS 

LOCATE CARDX( IT) + S, CARDY( IT) + JI - 1 


PRINT "4" 
SOUND 1, 220 * I - 40 * J, 7, 15 
NEXT 


FOR J = 1 70 6 

LOCATE CARDX( To) + J - 4, CARDY( IT) + & 
PRINT "A" 

NEXT 2 NEXT 

IF SCORE( 1) + SCORE( 2 ) = 9@ THEN 101 
RETURN 
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80a 
818 
B28 
B30 
B40 
850 
860 


878 
88a 


890 
9B 


918 
928 
230 


940 
938 
96 
978 
98 
990 


1QQ2 
1018 
1020 


1020 
10428 


LBS 


1868 
10728 


Rest card 


3 

FEN 1 

FOR I = 1 70 5 

LOCATE CARDX( CN ), CARDY( CN ) + I - 4 

PRINT CARDS 

NEXT 

FAPER 1 : PEN 2 : LOCATE CARDX( CN ) + 2, CARDY( CN ) + 
2 

PRINT CHR#( 64 + CN ) 

FAPER @ 2 RETURN 


Update name and score 


& 

LOCATE 1, 19 : PEN 3 3: PRINT SPACE#( 23) : LOCATE 1, 1 
9 

PRINT PLAYERS ( CPLR ) 

LOCATE 25, 19 8: PRINT "Score +4" SCORE( CPLR ) 

RETURN 


Print message 


$ 

PEN 3 2 LOCATE 1, 23 
PRINT SPACE#( 35 ) 
LOCATE 1, 2:5 

PRINT MSG#( MN ) 

RE TURN 


Game over 


IF SCOREC 1) » SCORE( 2 ) THEN X# = PLAYER#( 1) ELGE 

X# = PLAYERS( 2 ) 

LOCATE 1, 10 : FRINT "CONGRATULATIONS, TOA" s X# 

LOCATE 1, d3 0: PRINT PLAYERS ( 105 “ASCORED,A"s SCOREC 1 
) 

LOCATE 1, 16 : PRINT PLAYERS( 2 )3 ",SCORED,A": SCORE( 2 
) 

“OCATE @, 22 : PRINT "“FPRESS.A,LREY.FOR.ZANOTHER,.GAME" 

“ TNKEY# = "" THEN 107@ ELSE RUN 
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ChexSum Tables 


= 1408 a a 
= 3168 “= = 
= 1013 = = 
= 5199 ms 2 
= S173 = = 
= 176 = = 

bi] = 
= 2739 ms = 
= 549 = = 
= 1953 = = 
= 4728 st = 
= 1467 a " 
” 1146 ee ae 
a 49593 = 2 
= 1487 ws 
© 1147 = 7 
= 3088 a "= 
= 244% = ws 
= 1301 a = 
= 4659 = “ 
= 5648 = 1248 SO50 = 
= 138 = 2565 SQ4Q = 
= 1667 = 176 8990 = 
aa 7Ot a 979 900Q = 


= Q 2878 POLY 


=  BS71 = @11 9O20 % 

a OT tex 925 = 

Pa Pr bake) om 9W27 = 

ao ERD - 9030 = 

= $035 = 9040 = 

= 6086 “ 

= 96 = 

m {ADS fd TOTAL = 202596 
= 929 = 
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CONVOY 


FICO DESTROVED 


GONE OUFR - PRESS f KEY TO TRY AGAIN 


CLASSIFICATION: Time-Limit Game 


Use the following keys to move: ‘,’ to move left, ‘.’, to move right, and 
the space bar to either deposit a bomb or patch up a section of road. 

The enemy’s trucks are black and yours are red. You are a saboteur 
and your mission is to stop a convoy of enemy trucks from passing 
you. The idea is to set the time bombs underneath the road by posi- 
tioning your boat on the underground river. 

The problem: Your own truck must be allowed to pass and you have 
no control over the fuses on your bombs! 


PROGRAMMING SUGGESTIONS 


The falling trucks would look great if there was a big splash and noise 
when they hit the water. The code to achieve this would go in the drop 
truck routine, lines 2500 — 2559, or a branch to an additional routine. 
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PROGRAM 


Variables 

TRUCKX(4) Truck columns 

TRUCKS String for displaying trucks 
BLANK$ Blank string to erase either truck or man 
TCOLS(4) Colour of trucks 

LTM, LNT Last truck moved, last new truck 
BOMBC Bomb’s column 

PLCOL Player's column 

MANS$ String for displaying man 
ROAD(4@) Which portions of road have been destroyed 
BCOUNT Bomb count; seconds to detonation 
SCORE Player’s score 

|, J, T(16) Temps 

Program Structure 

Lines Function/Activity 

10 —110 Initialise 

130 — 200 Display screen 

210 — 500 Main loop 

1006 — 1020 Move man 

2000 — 2090 Move trucks 

2500 — 2550 Drop trucks 

2800 Man squashed 

3000 — 3070 Explode bomb 

3500 — 3590 Explode man 

4000 — 4050 Patch up road 

7000 — 7010 Update score 

8000 — 8010 Decrement bomb count 

9000 — 9040 Game over 
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CONVO: 


Intialise 


1 


MODE 


so ¢ SYMEO 


4 245, 2, 
ban) ( : 128, 192 5: SY 
64, 9b, J 248 
o@ iN poe CHAE C 240 ) + CHR ( TQ) + CHR# ¢ 
Bo) + CHRGC 8) + CHREC 242 ) 
7B BLANK Fy Ob CHREC TQ) + “i ae ee ae 
3@) MANS = CHREC 244 ) + CHRE( 246 ) + CHREC 10 ) + CHRE( 8 
. + CHREC Bo) + CHREC 245 ) + CHR C 247 ) 
2) MW 1M ROAD 40), TC 16 ) 
18@ JO 40 2 ROAD( LT ) = do: NEXT 
LAW) 
LQ 
140 : BORDER ich 
150 # 1 TO 40 5 FOR J = S TO 9 2 LOCATE I, J 
> # NEXT a NEXT 
160 TO 40 s FOR J * 15 TO @)o: LOCATE I, 
NEXT os NEXT 
17@ 1 é@ & PRINT MANS 
18@ T ‘ EVERY SO GOSUE 80a 
190 TOBE 
28 Los LNT = dog TRUCKEXC 20) = 28 : TCOLS( 1) * dos 


Lon LOCATE 38, 3 2 PRINT USING "&"_ TRUCKS 


Main program loop 


GOSUB LAB 


@ THEN GOSUR SAQe@ 

AZ ) # ~t THEN TF ROAD C F >) = @ (. 
= IF BOMEC = @ THEN BOMBC = FLCOL s PEN fo: LO 
Wo: PRINT CHR 251) 


~1 THEN LOCATE 1, 24 s PEN os PRINT "ROME, 
RCOUNT 


Position and move man 


998 : 


141 


Laae 


1018 


1998 
2008 
2010 
2020 


20238 


OAR 
2050 
2Mb2 
2270 
@ O32) 
2490 


BAO 


exwre) 4) 


E9ID 
SUB 


IF INKEY( 39 ) > =1 AND PLCOL > 2 THEN LOCATE FLCOL, 41 
: PRINT USING "&"; BLANK 2 FLCOOL = PLCOL ~ 1 2 LOCATE 

PLOOL, t1 2 PEN 2 : FRINT USING "&"s MANS 

TF INKFEY( S31 ) 3 -1 AND PLCOL « 38 THEN LOCATE FLCOL, 1 
tos PRINT USING "&"; BLANKS + PLCOL = PLCOL + 1 3: LOCATE 
FPLOOL, 21 5 PEN 2 : PRINT USING "&"s MANS 

RE TURN 


Position and move trucks 


LTM = ( LTM MOD 4) + 1 

IF TRUCKEXC LIM ) = @ THEN 2060 

LOCATE TRUCKX( LTM >, 3 s PRINT USING "&"s BLANE# 3 TRU 
CEXC LTM ) = TRUCKXC LTM ) =~ 18 PEN TCOLG(C LTM 2 a LOCE 
TE TRUCEX(C LTM >, So: PRINT USING "&"s TRUCK S$ 

TF TRUCKX( LIM ) «© 2 THEN TF TCOLS( LIM ) = 2 THEN LOCA 
TE TRUCKX( LIM 0, 3 8 PRINT USING "&"s BLANKS s TRUCK X ( 
LTM ) = @ ELSE LOCATE 1, 22 : PRINT “YOU,ALET.ZANAENEMY, TF 
UCK ZR SCAPE A! !" 2 GOTO 9000 


Loe TRUCKXC LTM ) s TF ROADC T >) ® @ AND ROADC To + 4) 
= @ THEN 2500 
RETURN 

; EXC LNT >) & 3S THEN RE TURN 


IF fT 
LNT 


= LTM s TRUCKEXC LIM >) = 36 2 IF RNDC 1) « 0.5 THEN 
OLS LPM > = 1 BELGE TCOLS( LTM ) = @ 
TCOLS(C LTM ) s LOCATE 28, 4 2 FRINT USING "8's TRIG 


TURN 


Drop truck routine 


TRUCEX C LTM ) 

FRINT USING "&" 9 BLANKS 
J, 10, 1S 
C 


Jo: 
SOUND 1, 10 * 
® LOCATE L, Jo: PEN TCOLG( LIM ) s FRINT USIN 


Jo= J+ 1 me) 
G "ke" TRI $ 

TF Jo 8 14 THEN 2505 ELGE TF fo= RPLOOW OR Tob bo PLCOL 
QR To- do PLCOL THEN 280a@ 


{F LUM) = 1 THEN SCORE = SCORE + S@ 2 GOSUE 70a 
Qo: Ee ot, J ¢ PRINT USING "“&" 3 BLANKS 2: TRUCEX( LTM 


) = @ s RETURN 


FRONT “ONE WOF WYQUR WOWN, TRUCKS DESTROYED 4 


2 


Squash man! 


LOCATE 1, 22 5 PRINT "SQUIGHAIEE EE ' s GOTO 9008 


Explode Bomb routine 


LF BOMAD = @ THEN 350 BLSE LOCATE BOMBC, 1@ 2: PRINT ", 
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B89 


AOS 


GHI90 
TAD 
7O1LD 


7IOD 
Swi 
Bw 1d 


8990 
BGR 


IF ROMEO = 1 THEN ST = 1 ELSE ST = BOMEC - 4 

FOR I = ST TO BOMEC + 1 

= § TO 9 s LOCATE [, J : FRINT "," : SOUND 1, @, 
14. dno 

ROAD( tT) = @ 


Soe INTC RNDC 1) * 18) + @ 


BOMRC = Mos RETURN 


Destroy Man 


FOR I = 1 TO 1@ 
FOR J = 1 TO 16 8 TC J 0 = INTC RNDOC 1) * 255 ) s NEXT 


SYMBOL 244, TC LO, TO 2d, TORO, TO4), TOS), Th 

6), TO 7), TCO 8) 

SYMBOL 246, TOC 9d, TO AW), TE 120, TO 42 0, TO Ed, 
TC 140, TO UG, TC 16) 

SOUND 1, @, 25, 15, 4, 1, 3 * I 

LOCATE FLO, 21 8 FEN 20: PRINT USING "&'"'s MANE & NEXT 


SYMBOL 244, 8, OW, O@, @, OW, OB, OW, Ws SYMBOL 246, @, Q, 
M, @, @, BW, @, BOs LOCATE FLCOOL, 21 2 PRINT USING "&"s M 
ANA 

GOTO 9aIaa 


Mend road routine 


los 
SADC Tm 4 

FOR Jo % TO 9 ¢ LOCATE LT, d 
FRINE CHR C 207) s NEXT s NEXT 
FEST FUN 


Update score 


LOCATE OM, &4 : PEN os FRINT "SCORE :,"s SCORE 
RES TURN 


Decrement Bomb count 


ACCU 
PRES PRIN 


MCOUINT = 4 


End of game 


SOUND 1, (00, 34, La 2: LOCATE 1, 24 2 PRINT SFeé 
yo og LUCATE ty 24 


PEN 3 os PRINT "“GAME,OVER,.~ 
LOCATE 1, 10: PRINT “SCORE 
IF INKEY# = "" THEN 9040 ELS 
IF UNKEY# = "" THEN 9840 ELSE KUN 


PRESS 0A a KEY «TO TRY AGA LIN" 


ChexSum Tables 


{Q 2008 = 1668 

2Q = 2010 = 1988 

30 = 2020 = 89535 

40 = 2030 = 10597 

SQ = 2040 = 4801 

6B = 2050 = 204 

7 = 2060 = 2O7S 

BQ = 2070 * 6364 

90 = 20880 = 2748 

100 = 2090 = 201 

110 = 2490 = @ 

LAQ = 2500 = 2006 

14Q = 2505 = 1887 i 

150 = 25IQ # Oa AOS = BML 
sx AO2h 6999 = 
2 86247 7OOO * LIGA 
= 7065 7O1O = 2OL 
m 7990 = @ 
= BOOM = L7A1 
a 
= 
bd et 
ss = 
al 2 13865 
cd 9040 = 16%2 
= 
wn 
= TOTAL = 287.441 
om 
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LASER CROSS 


CLASSIFICATION: Shoot-Out Game 
Use the following keys to move: ‘A’ to move laser up, ‘Z’ to move laser 
down, ‘,’ to move laser left, ‘.. to move laser right and the space bar 
fire. 

Waves of guard ships will try to obliterate your planet by striking one 
of the three energy stores or your laser. 

The mother ship adds to the enemy’s firepower and is worth more 
points. 


PROGRAMMING SUGGESTIONS 


More guard ships could be added, but make sure you update the 
‘Position Guard Ships’, ‘Guard Fires’ and ‘Blow Guard Ship’ routines. 
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PROGRAM 
Variables 


ENEMX(4), ENEMY(4) Ships coords 


PROW, PCOL 
EPHASE(4) 
ETYPE(4) 
ENEMY$(2,4) 
SCORE 

T™ 

HIT 

COLS 

| 


Pointers row and column 
Phase of each ship 
Types of ships 

Strings representing ships 
Player's score 

Time remaining 

Number of ships hit 
Colour of ships 

Temp 


Program Structure 


Lines 

180 —8O 
100 — 500 
1000 — 1070 
2000 — 2100 
3008 — 3050 
4000 — 4040 
8000 

9000 — 9020 


Function/Activity 

Initialise 

Screen display and main program loop 
Move pointers 

Fire routine 

Control ships 

Player hit 

Update time 

Game over 
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LASER CROSS 


B80 


99 
1BHB 
1018 


LO2@ 
1Q208 


1848 
150 


Initialise Game 


MODE 1 os: INK @, @ : INK 
SYMBOL 248, 255, 255, 

l. 241, 24, 24, 60, 126, 
SYMBOL 242, 15, 31, 63, 


INE @, 6 : INK 3, 24 
126, 68, 24, 24 : SYMBO 
jy Ody 2 


63, 31, 15 : SYMBOL 2 


2 2 


240 y BS y 249, 242 
3 ‘e 2 “4, 24, 24, 16 3: SYMBOL 24 
194, 36, 24, 24, 193 


2A « 24, 56, 2164 16, S6, 24, 24 : SYMBOL 2 
47, 24, 24, 255, 22 @ 


SYMBOL 248 27 5 
» @, @, BO, B55, & 1 36, 24, 24 
FOR { = 1 10 4 8 ENEMY#( 4, IT) 
+ 

ENEMYS ( @, 10) = CHREC 244 ) 2 ENEMY#( 2, 2) = CHRE( 2 

45 ) & ENEMY & ¢ 3) om CHR#¢ 244 ) s ENEMY#( 2, 4) # © 
HRE( 245) 


28, 24, 24 +: SYMBOL 249 


= OCHRE ( 245 + [ >) s NEX 


Screen display and Main Program loop 


BORDER @ : PAPER @ # CLS 


PROW = 12 2: PCOL = 2 

TM = 60 s: EVERY S@ GOSUE 8000 

MOVE 17, 28:3 s DRAW 17, 17, 1 3: DRAW 623, 17, 1 : DRAW 
623, S83, 1 0: DRAW 17, 383, 1 


DRAW a, S99, 109: MOVE @, @ : DRAW 17, 17, 1 : MOVE 623, 
17 : DRAW 639, @, 1 3: MOVE 623, 38% 1 DRAW 640, 4@@, 1 


LOCATE FCOL. to: FRINT CHR#( 240 ) 4: LOCATE FCOL, 28 
PRINT CHR#( 241 ) ¢ LOCATE 1, PROW s PRINT CHR#( 2435 ) 5 
LOCATE 40, FROW s PRINT CHR#( 242 ) 

GOSUE 1000 

IF [NKEY( 47 ) » =~1 THEN GOSUR 2000 

BOSUR 32000 

GOTO 208 


Move pointers 


Hy 

TF INKEY( 69 ) = ~1 OR FROW < 3 THEN 1020 

LOCATE 1, PROW : FRINT "J" s LOCATE 4@, PROW s: FRINT "4 
“os PROW = PROW ~ 10: PEN 1 : LOCATE 1, PROW : PRINT CHR 
$C 242) 2 LOCATE 40, FROW : PRINT CHREC 242 ) : RETURN 
TF INKEY( 71 ) = =-1 OR FROW > 23 THEN 1040 

LOCATE 1, PROW s FRINT "," : LOCATE 48, PROW : PRINT "y 
"o> PROW = FROW + 1: PEN 1 os: LOCATE 1, PROW : PRINT CHR 
$(¢ 243 ) : LOCATE 40, PROW : FRINT CHR®( 242 ) : RETURN 
IF INKEY( 39 ) = -1 OR FCOL < 3 THEN 1060 

LOCATE PCOL, Jo: PRINT "J" 9 LOCATE FCOL, @8 : PRINT "y 
"or PCOL = PCOL - lo: PEN 1 os LOCATE FCOL, 10 : FRINT CHR 
$C 240 ) 1 LOCATE FCOL, 25 2 PRINT CHRE( 241 ) a RETURN 
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1868 
1870 


1990 
2000 
e2Q18 
2028 
ZBI 


2040 
eB 


218A 


2990 
4QQ0 


4O1@ 


AB28 
4020 
4048 


[F CNKEYC Sto) = -1 OR FCOL > 38 THEN RETURN 

LOCATE PCOL, Lo: PRINT "J" os LOCATE FCOL, 25 PRINT " 
“os POOL = PCOL + 1 2 PEN to: LOCATE PCOL, 1 PRINT CHR 
$( 240 ) s LOCATE PCOL, 25 2 PRINT CHRE( 241 s RETURN 


Fire laser 


we a 


MOVE 16 * FCOL = 8, 18 : DRAW 16 * FCOL ~ 8, 381, 3: M 
QVE 18, 407 ~ 16 * FROW : DRAW 621, 407 ~ 16 * FROW, 3 


SOUND 1, 680, 10, 15 

HIT = @s FOR [ = 1 TO 4 5 IF EFHASE( [ ) > @ AND ENEMX 
(I) =* PCOL AND ENEMY( IT ) = PROW THEN HIT = I 

NEXT 

IF HIT THEN GOSUB 4000 ELSE SCORE = SCORE ~- 10 

MOVE 16 * PCOL - 8, 18 2 DRAW 16 * FPCOL - 8, 381, MO: M 
QVE 18, 407 ~ 16 * FROW « DRAW 621, 4@7 ~ 16 * FROW, @ 


RETURN 
Control ships 


IF RND(C 4°) « O46 THEN RETURN 

FOR To = 1 70 4 5 JF EPHASE(C IT) «<* @ THEN EFHASE(C [ ) = 
( EPHASE( T ) MOD 4) + 1 : GOSUR 350@ : IF RND( 1) «& 

@.@1 THEN COLS¢( fT) = INTC RNDC 1) * 2) + 2 or GOTO 3@2 

Q@ ELSE GOTO 30308 

TF RNDC 1) > @.@8 OR To @ HIT THEN 3030 ELGE ENEMX( I ) 
= INTC RNDC 1) * 36 ) 4+ 3 os Et YC JT) ® INTC RNDC 1) 
* OL) + Sos EPHASEC [o) = 2 2 EVYPEC Fo) ™ INTC RNDC J 
> #* 2) & tor COLSC TY) = INTC RNDO 1) *# 2) # @ oe GOT 

0 2048 

IF RNDC 1) « @.02 AND EFHASE( [ ) «> @ THEN EFHASEC I 

) = @ s LOCATE ENEMX( Io), ENEMYC To) os PRINT "4" 


NEXT 
RETURN 

| ome 
FEN COLS( I ) : LOCATE E Td, ENEMYC To) os PRINT E 
NEMY#( ETYPE(C Io), EFPHASE ¢ ») 


RETURN 


[om 


ENEMY ( HIT >) 8 FRINT "," ¢ SOUND 1 


LOCATE ENEMX( HIT ) 
,» @, SQ, 15, 1, 1, B1 
IF COLS( HIT ) = 3 THEN LOCATE 10, 10 : PRINT "DES 
D.YOUR,.OWN,SHIFA!" + GOTO 9000 

SCORE = SCORE + 1@ * ETYFE( HIT ) 

EPHASE( HIT ) = @ 

RE TURN 


STROVE 
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Update time 


7990: 
8000 TM = TM ~ 1: IF TM > @ THEN RETURN 


Game over 


8990 + 
9000 LOCATE 1, 1: PEN 3 : PRINT "GAME,OVER,~,.YOUR,SCORE :," 

: SCORE 
9@1@ IF IN 
9020 IF INKE 


= "" THEN 9920 ELSE 901@ 
= "" THEN 9020 ELSE RUN 


ChexSum Tables 


1Q 110 = 
20 = 1920 = 
BQ 1030 = 
40 1Q4Q x 
108Q = 
LOGO = 
1070 = 
oe 
om 

ss BIFQ sx 

= F000 = 

= FOLQ x 


POE x 


om LB 


41 
wt A FOTAL = V7 Qa 
out @ 


HERE R BOB 


= 2789 


149 


150 


OBSTACLE 


: 

4 
rey 
os 
ee 


—— 


» 
a 
Lag 
» 
> 
» 


| 


i 


CLASSIFICATION: Avoidance Game 
Use ‘A’ and ‘Z’ to move (up and down respectively) through the obstacle 
course. 

Your goal is to reach the bottom in the best possible time, avoiding 
the stompers and lasers along the way. At the lower set of stompers, 


you only need to move one step below the lasers and then you will fall 
all the way. 


PROGRAMMING SUGGESTIONS 


To make the game more difficult the number of lasers or the number 
of stompers could be increased. To make it impossible increase both. 
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PROGRAM 
Variables 


T™ 
PHASE 

MROW 
LASER(10) 
LASROW(10) 
ASTOMPLXL(5), 
ASTOMPXR(5 
BSTOMPXL(3), 
BSTOMPXR(3) 
ASTOMPY(5) 
BSTOMPY(3) 
ASTOMPDR(5) 
BSTOMPDR(3) 
|, J, K 


Time 

Phase man has reached (1-3) 
Man's row 

Timer counts for each laser 
Row of each laser 

Top set stompers 

columns (left and right) 
Bottom set 

stompers columns (left and right) 
Top stompers rows 

Bottom stompers rows 

Top stompers directions 
Bottom stompers directions 
Temps 


Program Structure 


Lines 

10 —110 
130 — 500 
1000 — 1060 
2008 — 2630 
8000 

9000 — 9020 


Function/Activity 
Initialise 

Program main loop 
Fire lasers 

Move stomper 
Update time 

Game over 
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ORS TAC 


128 


999 
1000 
100s 


Initialise game 


MODE 1 3s INK @, Ws INK 1, 6 © INE 2, 11 

FOR IT = 1 70 10 : LASROW( [ ) = 8 + Tos 

PHASE = Los MROW = 2 

FOR £ = 1 TO S : ASTOMPYC To) = & + Tos ASTOMPXL( T ) = 
So: ASTOMPXR¢ To) = 24 8 ASTOMPDR( To) = do: NEXT 

FOR IT = 1 TO 3 : BSTOMFYC IT ) = 17 + 2 * To: BSTOMFXL ¢ 
IT) = 15 : BSTOMPXR( I) * 24 : BSTOMFDR¢ To) = 1 os NEXT 


PAPER @ : CLG s BORDER @ 
E. Y SQ GOSUE BOQ 


SN 2: FOR © # 1 TO 10 8 LOCATE 1, LASROWC To) oa PRINT 

CHR C 246 ) : LOCATE 4@, LASROWC To) os PRINT CHR#( 247 
) oo: NEXT 

FOR IT = 1 T0 5S : FOR J = 1 TO 14 : LOCATE J, ASTOMFY( IT 
) os PRINT CHRE( 154 ) : LOCATE J + 24, ASTOMFY(C I) os F 

RINT CHR#( 154 ) & NEXT s NEXT 

FOR fT @ 1 TO 3: FOR J #= 1 TO 14 3: LOCATE J, BSTOMFYC JT 
Yo: PRINT CHR&C 154 ) 2: LOCATE J + 24, HBSTOMPY(C [ ) a F 

RINT CHR# OC 154 ) ¢ NEXT & NEXT 

FEN to: LOCATE 20, MROW : FRINT CHR#( 249 ) 


Main Program loop 


TF OTNRKEY(¢ 69 ) @ =. OR MROW «< & THEN 140 ELSE LOCATE 2@ 
» MROW : PRINT "4" os MROW = MROW ~ 1 os IF TEST( 304, 407 
~ 16 * MROW ) <% @ THEN 9000 ELSE PEN 1 : LOCATE 20, MR 
QW: PRINT CHR#( 249 ) 

IF FHASE = 8 THEN 145 ELSE IF [NEEY( 71 ) = -1 OR MROW 

* 18 THEN LS 

LOCATE 20, MROW s PRINT "," 2 MROW = MROW + 10s IF TEST 


C 304, 407 16 * MROW ) <> @ THEN 9@@@ ELSE PEN 1 os LOC 
ATE 20, MROW : FRINT CHR#( 249 ) 2 IF MROW » 24 THEN 900 
@ 


PHASE = ~( MROW > 1) ~ ( MROW * 8 ) -—( MROW > 16 ) 

PEN Jo: LOCATE 1, to: PRINT “TIME as y"s TM 

IF FHASE + 1 THEN 190 ELSE I = INTC RND( 1) * GS ) + | 
: GOSUR 2000 

FOR ko | TO 3 s f =» INTC RNDC 1) * GS) + 1 8 GOSUE 20 

QQ s NEXT 

IF FHASE = 2 THEN GOSUB 12000 

IF PHASE > 1 THEN FOR kK = 1 TO 3S s I = INTC RNDC 1) *# 

3) + 1: GOSURB 2000 : NEXT 

GOTO 1:30 


Fire lasers 


FOR [ = 1 TO 10 : J = INTC RNDC 1) * 
TF LASER( IT) < @ THEN LASER( IT) = @ 
16 * LASROW( £[ ) s DRAWR 685, @, @ 


WW) +5 
s MOVE 17, 487 - 
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1018 


LW2@ 


1Q30 


1040 
LO58 
1060 


PEN 3S : LOCATE 1, LASROW( £ ) : PRINT 


@ THEN IF RNDC 1) «< @.9 THEN 1068 ELGE 
CATE 48, LASROWC I) os PRINT CHR¥( 247 ) 


= WASER( IT) ~ 1 o: IF LASERC [ ) & @ THEN 18 


PEM 2: LOCATE 1, LASROW(C [o) os PRINT CHR#®( 246 ) s LOC 
ATE 40, LASROWC IT) : PRINT CHR#( 247 ) : MOVE 17, 487 ~ 
L6 * LASROWC [ ) 
1, 400, 18, 15 : DRAWR 685, @, 3 

to) = ~1t : IF LASROW( T ) = MROW THEN 9200 
RETURN 


Move stomper 


IF PHASE = 1 THEN 2500 

FEN 2 s LOCATE BSTOMPXL(¢ To), BSTOMPY( IT) + IF BSTOMFD 

RO ft ) = 1 THEN PRINT CHR®( 154 ) ELSE PRINT "," 

LOCATE BSTOMPXR( IT >), BSTOMFY( IT) 2 IF BSTOMFPDR( [ ) = 
1 THEN FRINT CHR#( 154 ) ELSE PRINT "," 

IF BSTOMPDR¢ £ ) = -1 THEN 2100 ELSE [F BSTOMPXL( I) = 
19 THEN IF BSTOMPYC I ) = MROW THEN 9000 ELSE BSTOMFDR ( 
C ) = to 3 GOTO 2050 

BSTOMPXL ¢ fo) = BSTOMPXL¢ IT ) + BSTOMFDR( I ) s BSTOMFPX 

RO T ) = BSTOMPXR¢ To) = BSTOMFDR<( I ) 

LOCATE BSTOMFXL¢ Io), BSTOMPY( I >) : FRINT CHR#( 143 ) 

: LOCATE RSTOMPXR¢ Io), BSTOMPY( IT ) & PRINT CHR#C 142) 


RETURN 
(F BSTOMFXL( To) # 18 THEN BSTOMPDR( [T ) = 1 : GOTO 212 


@ 

KRSTOMPXL.¢ Io) = &STOMFXL¢ To) + BSTOMFDR( [I ) : RBSTOMPX 
RC tT ) = BSTOMPXR( I) - BSTOMPDR( I ) 
LOCATE BSTOMFXL¢ Io), BSTOMFY( [ ) : PRINT CHR#( 1435 ) 

: LOCATE BSTOMPXR( £ ), BSTOMFY( IT ) os PRINT CHR#( 145 ) 


RE TURN 

PEN 2): LOCATE ASTOMPXL( [I ), ASTOMPY( IT ) : IF ASTOMFD 

RC J ) @ 1 THEN PRINT CHR#¢ 154 ) ELSE PRINT "," 

LOCATE ASTOMFXR( I), ASTOMPY( IT ) « IF ASTOMFDR( I) = 
lL THEN FRINT CHR#( 154 ) ELSE PRINT "," 

[IF ASTOMPDR( [ ) = ~1 THEN 2600 ELSE IF ASTOMPXL.( I) = 
19 THEN IF ASTOMFY( [ ) = MROW THEN 9200 ELSE ASTOMFDR ¢ 
Co) = =) : GOTO 2540 

ASTOMPXL¢ f£ ) = ASTOMFXL( I) + ASTOMFPDR( I ) : ASTOMFX 

RC I) = ASTOMFXR( I) = ASTOMPDR( TI ) 

LOCATE ASTOMPXL¢ £9), ASTOMFY( £ ) 4 PRINT CHR#( 143 ) 

: LOCATE ASTOMFPXR( I), ASTOMPY( IT ) s PRINT CHR#C 143 ) 


RETURN 

TF ASTOMPXL¢ T >) = 15 THEN ASTOMPDR( [ ) # 1 8 GOTO a2 
@ 

ASTOMFXL.¢ To) = ASTOMPXL.¢ T >) + ASTOMFDR( IT) 2 ASTOMPX 
R¢ I) = ASTOMPXR( I) ~ ASTOMFPDR( I ) 

LOCATE ASTOMFXI.¢ IT), ASTOMFY( IT ) : PRINT CHR#( 143 ) 

: LOCATE ASTOMPXR( Io), ASTOMPYC [ ) s FRINT CHRE( 143 ) 


RE TURN 
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8990 
FBO 


9005 
9Q7 


9Q128 
9B20 


Update time 


Tre = TM + 1 os RETURN 
Game over 


3 

LOCATE 15, 10: FRINT "GAME,OVER,.~.SCORE,.=4"3 MROW * 10 
-~ TM * 2 ~ 100 * ( MROW > 23 ) 

FOR I = 1 TO 15@0 : NEXT 

IF MROW > 23 THEN LOCATE 1, 2 : FEN 3 : PRINT "CONGRATU 
LATIONS! ! .-,.YOU,AHAVE WON! |" 

IF INKEYS = "" THEN 9020 ELSE 9210 

IF (INKEY$S = "" THEN 9020 ELSE RUN 


ChexSum Tables 


1 
eQ) 
3Q 
40 
SiQ 
60 
78 
8a 
9 
108 


11 + 


Lea 
As") 
148 
14% 


150 = 
16Q = 
178 = 
18Q « 


19 
200 
OQ 


1a? 999 = Q me SDS 
2798 1000 = 2760 = B64 
1486 1008 = 4952 = = 7E92 
6882 1010 = 9352 ia : 
TAT7S 1020 = 3747 iat 
548 1030 = 6203 2600 = 
612 1040 = 1081 2619 = 
S463 1050 = 3821 2620 = 
701.55 1W60 = 378 2630 = 
7047 1990 = @ 7990 = 
1860 2000 = 1491 BOO = 
4) 2010 = S894 8990 = 
IIID = FAVS 7BOQ = 
4295 = O45] 900% = 
: m 7866 FQQ7 = 
= 6085 9O1O = 
a 201 9020 * 

2100 = 

2110 = 3 

120 = 6117 TOTAL = 

2130 = 201 

2500 = S623 
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ALLIGATOR 


CLASSIFICATION: Time-Limit Game 


Help the starving alligator to find food by guiding it to plants, exotic 
fish and the delicious yellow fish. All of the yellow fish must be eaten 
and the Alligator must reach the right hand side of the screen within 
the given time-limit. 

If you forget that Alligators can’t stay under water forever then the 
poor thing will drown! Keep an eye on the air gauge at the top of the 
screen and don't eat the mines. 

Use ‘A’ to move up, ‘Z’ to move down, ‘.’ to move right. 


PROGRAMMING SUGGESTIONS 


What if the Alligator had bigger lungs? Increase the value of GAUGE. 
The game could be made significantly more complex by randomly 
swapping mines for fish or making mines invisible for a short period. 
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PROGRAM 


Number of rounds 
Alligator’s phase (1 or 2) 
Strings to display Alligator 
String to erase Alligator 
Player’s score 


Seconds remaining before Alligator drowns 


Overall time left this round 
Alligator’s coordinates 
Number of yellow fish 
Temps 


Program Structure 


Variables 
NR 

PHASE 
ALLIG$(2) 
BLANKS 
SCORE 
GAUGE 
OTIME 
ALLIGX, ALLIGY 
NYFISH 

|, J, 71 

Lines 

18 —11@ 
120 — 290 
300 — 590 
600 — 990 
10008 — 1990 
2000 — 2490 
2500 — 2990 
3000 — 3990 
4000 — 4490 
4500 — 4990 
5000 — 5990 
6200 — 6990 
7000 — 7990 
8200 — 8990 
9008 — 9040 


Function/Activity 
Initialise 

New round 

Main loop 

Check collisions 
Alligator breathes 

Eat exotic fish 

Eat yellow fish 

Eat mine 

Alligator drowns 

Time up 

Update Gauge and Time 
Update score 
Decrement Gauge and Time 
Animate Alligator 

Game over 
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ALL TGATOR 


Initialise game 


1a : INE @, 14 : INK 2, @ : INK @, 12 2 INE 3, dos 
AFTER 2.31 
OQ) SYMBOL 240, O, Oy OB, BW, 192, 96, 96, 119 + SYMBOL 241, 
63, 63, 3 1S, 24, 48, 48, @ 
3Q SYMBOL, 25 Oy Be a, a. @, 1, 2, 180 : SYMBOL. 2435, 246, 
eo, 240, 224, 96, 192, 96, 48 
40 SYMBOL. 244, @, @, BW, 128, 192, 192, 96, 119 5 SYMBOL 24 
3, 3, Sl, 15, 24, 48, 97, 97 
m9) SYMBOL. BW. @, OB, @, BW, BG, 16, 184 : SYMBOL 247, 285 
e 2E4, PH, APA, 128, 128 
60 129, 9B, OB, V1, GW, PB, LAV, 
70 128, 196, 110, 63, 63, 110, 196, 128 
73 129, 6B, 126, 255, 255, 126, 60, 129 
8a : = CHREC 240 ) + CHRE( 242 ) + CHRE( 10) + 
STRINGS ¢ é@y 8) + CHRO 241 ) + CHR#E( 2435 ) 
90 Alnb. G8 C 2) = CHREC 244 ) + CHREC 246 ) + CHREC 10) + 
STRINGS C 2, 8 0 + CHR#(C 245 ) + CHRE( 247 ) 
10 BLANK# = CHR#E( Be ) + CHRE( S32) + CHRE( 10) + STRINGS 
( 2, 8) + CHR#E( 32) + CHRE( S2 ) 


New round of game 


CLS 2 BORDER 14 
: NR = NR + 1 


NC fO 38 2: FOR J = 6 TO 2 
140 = RNID 1 [Fok 8 @.015 THEN PEN 1 os LOCATE 1, Jo: 
C Ha ( s GOTO 208 
1S FEN 3 os LOCATE L, Jos PRINT CHRE( 249 
168 @.@45 AND NYFISH «< 7 THEN PEN @ 4 LOCATE I, Jos 


PRINT “CHR ( é43 ) « NYFIGH = NYFIGH + 1 
QQ NEXT f NEXT 


e1@ C= | FO 48 s: LOCATE I, S os PRINT CHR#( 154 
eek PRINT "SCORE #4" SCORE s LOCATE @@, 4 3 


£4440" 
H F SINT "AIR sy" : PEN 1 
10 22 o~ NR os LOCATE T, 3 : PRINT CHR#( 145 ) 


o~ NR os OTIME = 6@ 

jak. @ fos ALLIGY = 1% s FEN 1 « e 
Yor PRINT USING "&"y ALLIG#( 1) : PHASE 

278 EVERY 20, 1 GOSUB 8000 : EVERY S@, 2 GOSUR 7000 


ATE ALLIGK, ALL IG 


Main program loop 


298 : 
iQ a WGX, ALLAIGY s PEN fos PRINT USING "8" _ ALA Ga 
S18 IE INKEY ( 69 ) = -1 OR ALLIGY « 6 THEN 358 
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IB 
600 
618 


628 
BQ) 


640 
635 


660 
670 


680 


690 


aa”) 
1O08 


1010 
LW2@ 


1230 


1992 
2Q0Q 
2019 


2020 


2498 


LOCATE ALLIGX, ALLIGY # PRINT USING "&"s BLANK 2 ALL IG 
Y= ALLIGY ~ 1 : GOSUR 60 

TF ALLIGY « 6 THEN GOUSUR 1000 

[F (NFEYC 71 ) = =-1 OR ALLIGY THEN 380 

LOCATE ALLIGX, ALLIGY + FRINT USING "&"; BLANES : ALLIG 
Y2 ALLIGY + 1 : GOSUB 680 

TF INKEY(C 21) # =1 THEN 410 

LOCATE ALLIGX, ALLIGY + PRINT USING "&"; BLANE€ =: ALLIG 
X = ALLIGX + 1 : GOSUBR 680 

IF ALL LGX 38 THEN CLS os IF NYFISH & @ THEN LOCATE 1, 
3 o: PRINT "YOU,AMISSED, (EZYELLOW,AP ISH!!!" : GOSUE 6@a@¢ 
: GOTO 9800 ELSE SCORE SCORE + 100 s GOTO 120 

IF GUAGE < 1 THEN 4000 ELSE IF OTIME «< 1 THEN 450@ 
GOSUB SOO 

GOTO 288 


fat 


Check collisions 


Tio = TEST ALLIGX * 16 ~ 16, 415 ~ 16 * ALLIGY ) 

IF Ti = 1 THEN 3000 ELGE IF Ti * 2 THEN GOSUR 2500 ELSE 
IF Ti = 3 THEN GOSUE 2000 

TL = TEST ( ALLAGX * 16, 415 - 16 * ALLIGY ) 

IF v4 = t THEN 3000 ELGE ITF Ti = 2 THEN GOSUB 2500 ELGE 
IF Vi = 3 THEN GOSUE 200 

Ti = TESTC ALLIGX * 16, 399 ~ 16 *® ALLIGY ) 

TF V1 = 1 THEN S3@0@ ELSE ITF TL = @ THEN GOSUB 2500 ELSE 

[FT 3 THEN GOSUB 200 

SVC ALLIGX * 16 ~ 16, 399 ~ 16 * ALLIGY ) 

L THEN 3000 ELSE IF Til = 2 THEN GOSUE 2500 ELGE 

IF T1 = 3 THEN GOSUE 2000 . 

PEN to: LOCATE ALLIGX, ALLIGY + FRINT USING "&"s ALL IGS 

( FHASE ) 

RE TURN 


Alligator Breathes 


LOCATE ALLIGX, So: PEN So: PRINT CHR®( 154 )3 CHRE( 154 
) 

ALLIGY = ALLIGY + 1 2: GUAGE = 15 — NR 

FEN 1: FOR I = 8 TO 22 ~ NR: LOCATE I, 3 : PRINT CHRE 
( 145 ) 8 NEXT 

RETURN 


Player eats exotic fish 


SCORE = SCORE + 1@ : GOSUB 6000 
SOUND 1, 5@, 15, 15 : SQUND 1, 40, 15, 15 : SOUND 1, 6@ 
. 25, 15 


RETURN 


Player eats yellow fish 


160 


A990 
AO 
412 


a) 


4490 
HOO 


499Q 
OOO 
01 
5Q20 


8990 
ONO 
4Qia 


6990 
7QQQ 
TOLD 


RE + SO : GOSUE 6808 
100 TO 30 STEF -8 : SOUND 1, 1, 5, 15 3s NEXT 
NYF ISH ~ to: GUAGE = GUAGE + 1 


Player eats mine 


t= 1 TO 25 2 BORDER I 
SOUND 1, @, 10, 15, 1, 1, 1 
INK @, TNT OC RNDC 4) ® 26 ) 

F Jo= 1 70 70 + NEXT + NEXT 
aca 41/41 


Alligator Drowns (no air left) 


U2) 
LOCATE ty 2 a PRINT "FOOR,ALL I GATOR,HAS ,.DROWNED 


ie oo ee te 
mores 


GOTO 9BBe 


Time has run out 


PEN do L, 2: PRINT "YOU,ARE,TOO.SLOW wma TIME UF 
a 
PRINT CHR ( 7) 


GOTO QW 


PRINT "," 
"TIME #4" % OTIME 


Update score 


PEN So: LOCATE 1, 20: PRINT "SCORE sys SCORE 
FECT WRN 


Decrement Air Gauge and time elapsed 


© GUAGE ~ Lo: OTIME = OTIME = 1 
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Animate Alligator 


7990: 
8000 FHASE = ( PHASE MOD 2) + 1 
8010 RETURN 


End of Game 


8990  : 

7000 SOUND 1, 1000, SB, 15 

9010 FOR ft = 10 TO 3@ : FOR J = 10 TO 15 : LOCATE I, Jo: FRI 
NT "4," & NEXT s NEXT 

9020 PEN 1 + LOCATE 13, 12 8 PRINT "GAME anOaV aE aR" 

9025 GOUND 1, 1000, 30, 15 


9030 IF INKEY# = "" THEN 9040 ELSE 9030 
9040 IF INKEYS = "" THEN 9040 ELSE RUN 


ChexSum Tables 


1Q = 390 = 
OQ x 400 = 
3Q om 410 = 
4Q 42Q = 
5) nn SVQ = 
6Q = S9Q = 
IQ = 600 * 
7 om 610 = 
2 q 620 = 
oi = 
640 = 
650 = 
668 = 
670 = 
680 = 
69Q = 
990 = 
1000 = 
as IW1O = 
an 1020 = 
tn 1030 = 
mn bd 
saa = 1917 ” 
oe = 162 = 
an = 201 - 
a = i 
ca ime 19357 = 
ms = 2496 sc 
at a R214 id 
ea 2 OL w= 
= 
se ae Ged ~ bel 
= ae baht TOTAL = 
an 5 LAL 
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DRAUGHTS 


CLASSIFICATION: Simulation Game 


A two player game of draughts for all ages, suited for the novice and 
experienced alike. The game is played using a mock board and the 
player moves his player to the appropriate position. 

The play is controlled with the following keys: 

‘A’ to move the cursor up 

‘Z’ to move the cursor down 

‘,, to move the cursor left 

‘.’ to move the cursor right 

Use the ‘SPACE’ bar to deposit or pick up the player and the ‘C’ to 
change a move. Press ‘SHIFT’ and ‘Q’ to replay or quit. 


PROGRAMMING SUGGESTIONS 


The game could of course be changed in many ways. As it stands it 
plays a reasonable game. It could be altered to play against the com- 
puter, have different levels of play and have time differing time limits 
for moving in each level of play. 
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PROGRAM 
Variables 
A,B 

c 

REPLAY 

FLAG 

X(8,8), Y(8,) 
COL (8,8) 
CONTENTS(8,8) 
MX(3000), MY(3020) 
COUNT 


Cursor coordinates 

Colour 

Flag for replay 

Has ‘C’ been pressed? 
Coordinates of each square 
Paper colours for each square 
Contents of each square 
Moves coordinates 

Moves count 

Number of black pieces 
Number of red pieces taken 
Temp 

String for draughts piece 
Space string 

Temp 

Coordinates of location to move piece from 
Coordinates to move piece to 
String to draw 


Function/Activity 
Call initialise 

Main loop 

Cursor control 
Replay 

Draw board 

Block routine 

Initial initialisation 
Replay initialisation 


BPIECES 
RPIECES 

N 

PIECE$ 

SP$ 

T 

FROMX, FROMY 
DESX, DESY 
BLOCK$ 
Program Structure 
Lines 

30 —70 

100 — 490 
520 — 660 
690 — 770 
800 — 900 
930 — 980 
1010 — 1130 
1160 — 1440 
1470 — 1520 


Menu 
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DRAUGHTS 


Call initialise Game 


40 GOSUB 1018 
iQ A= 1: k= ft 
62 COUNT = 4 


Main program loop 


70 8 

10@ GOSUB 120 

11 GOTO 188 

120 Com 4 

130 LOCATE 1, 23 

14 PEN Co: FAFER @ s PRINT "“RED‘'S,MOVE,," 

15 IF REPLAY <> 1 THEN GOSUB S20 : PRINT CHR#(7) ELSE GOTO 
180 

168 IF FLAG = 1 THEN GOTO 128 

1708 TF CONTENTS (A, B) «> C THEN GOTO 15@ ELGE FROMX = A 4 F 


ROMY = 
180 TF REPLAY «> 1 THEN GOSUB S2Q0 : FRINT CHR#(7) ELSE GOSU 
B 698 


198 (IF FLAG = 1 THEN GOTO 120 

earl) TF COL. (Ay BK) = 3 OR CONTENTS(A, B) <> @ OR A ® FROMX + 

FROMX ~ 2 OR A = FROMX THEN GOTO 18a 

210 EE s DESY = & 

a ([F FROMX < 8 THEN IF (A = FROMX + 2 AND CONTENTS (FROMX 

FROMY + ((DESY -—- FROMY) / 2)) <> &) THEN GOTO 160 

28 IF FROMX > 1 THEN IF (A = FROMX — @ AND CONTENTS (FROMX 
~ 1, FROMY + ((DESY ~ FROMY) / 2)) «<> &) THEN GOTO 180 

42) REN Cos CONTENTS(A, BR) = (Co: FAPER COLCA, BR) os BLOCKS = 

FIECE# : GOSUE 930 

esd) CONTENTS (FROMX, FROMY) = @ : A® = FROMX : BH = FROMY « FA 

PER COLCA, B) ot BLOCK& = SF 1 GOBUR 938 


#2OQ 1 THEN MX(COUNT) = FROMX s MY(CQUNT) = FRO 
poe COUNT + 2 8 MX (COUNT) = DESX : MY(COUNT) = 

COUNT = COUNT + 4 
270 ABS (FROMY ~ DESY) = 2 THEN CONTENTS (FROMX + ((DESX ~ 


FROMX) 7 2) 4 (FROMY + ((DESY ~ FROMY) / 2))) = @ : BRIE 
CES = BP TE 1 LOCATE BRPIECES, 21 : PEN Ss PAPER @ 

: PRINT (231) ELSE 29 
ZO) A= FROMX + (( DESX - FROMX) 7 2) : BH = FROMY + ( (DESY 
~ FROMY) / 2) : PAPER COLCA, B) +: BLOCKS = SP# : GOSUR 


29 * OH S = 12 THEN LOCATE 1, 25 : FAPFER @ : PRINT "RE 

DaWINS!! ! wana" : FOR N= | TO 10 : FOR T = 1 TO 1Q@0 STE 
FoS@ : SOUND 129, T, 10, 15 s NEXT To: NEXT Nos FOR T = 

TO 30Q0@ 2 NEXT T s GOTO 147@ 


PAF R @ 3 PRINT "BLUE 'S.JMOVE,." 

AY «> I THEN GOSUB S20 : PRINT CHREC7) ELSE 3460 
tT 30TO 308 

. B) <> C THEN GOTO S3@ ELGE FROMX = Ag F 


1 VHEN GOSUE S20 : PRINT CHR#(7) ELSE GOSU 
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470 


48 


660 
6908 
720 
718 
720 
738 
74 
758 
768 


TF FLAG = 1 THEN GOTO 308 

TF COLCA, B) = 3 OR CONTENTS(A, &) <> @ OR A & FROMX + 

2 0R A « FROMX ~ 2 OR A = FROMX THEN GOTO 260 

DESX = A : DESY = B 

IF FROMX «< 8 THEN IF (A = FROMX + 2 AND CONTENTS (FROMX 

+ 1, FROMY + ((DESY ~ FROMY) / 2)) <> 4) THEN GOTO 360 
IF FROMX > 1 THEN IF (A = FROMX ~ 2 AND CONTENTS (FROMX 

~ 1, FROMY + ((DESY -— FROMY) / 2)) «> 4) THEN GOTO %6@ 

PEN C : CONTENTS(A, BK) = C : PAPER COL(DESX, DESY) : A 

= DESX +: H = DESY : BLOCKS = PIECES 2 GOSUB 93a 

IF REPLAY <> 1 THEN MX(COUNT) = FROMX : MY(COUNT) = FRO 
MY s COUNT = COUNT + 1 os MX(COUNT) = DESX s MY(COUNT) = 
DESY s COUNT = COUNT + 1 

CONTENTS (FROMX, FROMY) = @ : A = FROMX « B = FROMY : PA 

FER COL(A, 8) : BLOCKS = SPS : GOSUR 930 

IF ABS(FROMY - DESY) = 2 THEN CONTENTS (FROMX + ((DESX 
FROMX) 4 2), (FROMY + ((DESY ~ FROMY) / 2))) = @ : RFIE 
CES = RPIECES + 1 2 LOCATE 2@, RPIECES » PEN 4 : FPAFER @ 
: PRINT CHR# (231) ELSE 470 

A = FROMX + (CC DESX - FROMX) / 2) 2 Bo = FROMY + ( (DESY 
~ FROMY) / 2) 3: FARFER COLCA, 8) + BLOCKS = SP# 2 GOSUE 
938 

IF RPTECES = 12 THEN LOCATE 1, 23 : PAPER @ : PRINT "BL 

UEAWINGS !!aaae" § FOR N @ 1 TO 18 5 FOR T = 1 TO 1000 STE 

PSO: SOUND 129, T, 10, 15 2 NEXT T s NEXT Nt FOR T = 
1 TO S300@ s NEXT T +s GOTO 14728 

RETURN 


Cursor control 


IF INKEY(67) = 32 THEN GOTO 1470 

TF INKEY(62) = -1 THEN FLAG = @ s PAPER 10 ELSE FLAG = 
1o: RETURN 

PEN CONTENTS (A, &) 

IF CONTENTS(A, &) > @ THEN BLOCKS =» PIECES ELGE BLOCKS 

= SPS 

GOSUR 930 

PAPER COLCA, B) 

GOSUB 930 

TF INKEY(47) >» -1 THEN RETURN 

A= A + CINKEY(S9) & -1) — CINKEY CSL) > <1) : Hom H+ ¢ 
INKEY (69) > -1) = (CINKEY(71) > =1) 

IF A > 8 THEN A 
IF A < 1 THEN A 
IF & » 8 THEN B 
IF & « 4 THEN & 

GOTO 2a 


( 
1 
8 
1 
8 


Replay game 


FROMX = MX(COUNT) s FROMY = MY (COUNT) 
COUNT = COUNT + 1 

A = MX (COUNT) 

Bom MY (COUNT) 

COUNT = COUNT + 1 

IF MX(COUNT) = @ THEN GOTO 1478 

IF INKEY(67) > ~1 THEN REPLAY = @ 
RETURN 
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FQ 
930 
940 
93 
96 
978 


980 

1010 
1820 
1038 
12042 
1050 
1262 
1878 
1280 
12098 
1148 
1110 
1120 


Draw Board 


FOR T = 1 TO 8 

FOR N= 1 TO 8 

PAPER COL (N, T) 

IF CONTENTS(N, T) = @ THEN BLOCKS = SP# 
A=N: BT 

IF CONTENTS(N, T) > @ THEN BLOCKS = PIECES 
PEN CONTENTS(N, T) 

GOSUB 930 

NEXT Nos NEXT T 

RETURN 


Block routine 


Ly 

LOCATE X(A, HB), YCA, B) 
PRINT LEFT# (BLOCKS, 2) 
LOCATE X(A, HB), Y(A, BH) + 1 
PRINT RIGHTS (BLOCK, 2) 

RE TURN 


Initial initialisation 


MODE @ 
PEN 1: INK 1, 18 
FAPER @ 

HORDER 1 

INE @, 1 2 CLS 

INK 2, 26 

INK 3, @ 

INK 4, & 

REPLAY = @ 

INK 3, 20 

INK 7, 8 

DIM X(8, 8), Y(8, 8), COL(B, 8), CONTENTS(8, 8), MX(30a 
@), MY(3@@@) 


Replay initialisation 


CLS 2 COUNT = 1: BRPIECES = @ : RFIECES = @ 

FOR T = 1 T0 8 2 FOR N = 1 TO 8 : CONTENTS(N, T) = @ 
NEXT No: NEXT T 

FOR N= 1 T0 8 STEP 2 

CONTENTS(N, 1) = 4 : CONTENTS(N + 1, 2) = 4 : CONTENTS ( 
N, S$) = 4 

CONTENTS (N + 1, 8) = S : CONTENTS(N, 7) = § s CONTENTS ( 
N+i1, 6) = 3 

NEXT N 

SYMBOL 240, 8, 3, 15, 31, 63 , 63 , 127, 127 


1230 
1248 
1258 
1260 
1270 
1280 
1298 
1300 
1318 
1320 
1330 

1348 
1350 
13460 
1370 
1382 
1390 


1400 
1418 


1420 
1439 


1440 
1470 
1480 
1498 
1500 


1510 
1520 


SYMBOL 241, @ , 192, 240, 248, 252, 282, 254, 254 
SYMBOL, 242, 127, 127, 63, 63, 31, 15, 3, 2 

SYMBOL 243, 254, 254, 252, 252, 248, 240, 192, @ 
PIECES = CHR(240) + CHR#(241) + CHR$(242) + CHR# (24%) 
SPS = "aaa" 

FOR T = 1 TO 8 STEP 2: FOR N= 1 TO 6 STEP 2 

COL(N, T) = 2: COL(N+ 1, T) = 3 
NEXT No: NEXT T 

FOR T = 2 TO 8 STEF 2: FOR N = 1 TO 8 STEF 2 

COL(N, T) = 3: COLIN + 1, T) = 2 

NEXT No: NEXT T 

FOR T = 1 T0 8 

FOR N= 1 7T0 8 

X(N, T) = N*# 22 Y(N, T) = T #2 

NEXT No: NEXT T 

GOSUR 80a 

LOCATE 1, 1 : PAPER @ : PEN 1 : PRINT STRING$(18, CHRE( 
143) ) 

LOCATE 1, 18 : PAPER @: PEN 1 : PRINT STRING#(18, CHRS 
(143)) 

FOR T = 2 TO 17 : LOCATE 1, Tt PRINT CHRE(14%) ¢ LOCAT 
E18, To: PRINT CHR#(143) 5 NEXT T 

LOCATE 6, 1 : PEN 7 : PRINT "DRAUGHTS" 

PEN 1 : RETURN 


Menu 


5 

LOCATE 1, 25 

PRINT "REPLAYACY/NI" 

Ag = INKEYS : IF Af = "" THEN GOTO 1498 

IF AS = "Y" OR AS = "y" THEN REPLAY = 1 : GOSUB 1160 : 
GOTO 68 

IF AS = "N" OR AS = "nm" THEN RUN 

GOTO 1498 
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ChexSum Tables 


HOUO8 


Hh HOR OE 


HOE # 


Hg HOB 


#8 Et 


4h 
922 
788 
1) 


UGid 
NT hb 
a7 
aka 
B44 
L794 
B240 
BEG 


1777 
2488 


S30 = za 
S40 = = 
SSO = a 
S6Q = = 
S7Q = = 
SQ = = 
S9Q = be 
680 = = 
610 # ae 
620 * ao 
640 = = 


640 = bl 
S50 bad 
660 # bl 
69Q = ue 
TOO a 
FiO = an 
72Q = = 
730 ta 
74@ 


Hu H HH OE OB 


& 
8 
#2e be RRR HH RS Ee 


B.! e 
840 = 
asa a 
B60 a 
a7@ es 
B80 = a 
B98 = 2 
FOO = m 
FAQ x os 
a 

on 

a 

L820 = 


LO@SQ = 406 POV AL, 
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SAD 
4 y'7 3 
437 


e 2 
1497 
2740 
SOB 
T29 
2597 
2638 
B61 
2598 
2635 
Bot 
99 1 
1O17 


2190 
S525 
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BRICK BUSTER 


CECLECK CCK SRK K KKK KR R Gk eRe e eee e 
ECECLEK KL GK RTA KCK RRR RRR eee ee 


SREKEKC KCK KKK RRR RSKeReee & 3 
ROKER KEKE EE RRRRRRR s 8s 


Seeeeeeeee eee G8 ee aeeeee &§ eS 
Se 


CLASSIFICATION: Bat Game 


You have fifteen balls with which to bat your way through the brick 
walls. Try your friends out on this one and see who can get the best 
score. 


PROGRAMMING SUGGESTIONS 


This game can be altered very easily by reducing the number of bricks 
(NBRICKS) to make it easier or by allowing more by altering the number 
of balls allowed. 


PROGRAM 

Variables 

NBRICKS Number of bricks remaining 

DECX(3,3,3), Three decision 

DECY(3,3,3) tables giving X and Y speeds respectively 
XSPD, YSPD Current X-speed and Y-speed 


BATCOL Bat’s column 

BALLX, BALLY Ball's coordinates 

NMISSES Number of misses 

HIT Ball hits something 

DCT Decision table number (1-3) 
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Program Structure 


Lines Function/Activity 

10 — 90 Initialise 

100 —190 New round 

200 —990 Control 

1008 — 1990 Move ball 

2000 — 2990 Collision 

3008 — 3990 Screen finished 
4000 — 4990 Update score 

9000 —9990 Game over 

10000 — 10050 Decision Table Data 
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BRICK BUSTER 


[me 
F Jo= JR = 


10 MODE 1s re) TNE Sy 
Q) FOR [ = 4 TO 4 TOS 
38 READ Q Q 

4 

be/4) | TO 3 3 FOR kK = 1 TO 3 
60 READ @ Q 


72 NEXT # 


New round 


BQ i 

90 

Lae RALLY = 10 s BATCOL = 19 2: NBRICKS = 86@ x 

1128 BORDER 1 

L2Q) 170 40 : FOR J = 1 10 4 5 LOCATE ©, J 
e258) s NEXT 2» NEXT 

120 : FOR J = 20 TO 24 : LOCATE I, J os FRIN 


 CHREC 2a 
14 GBOSUE 48 
18 FEN 20: LOCATE BATCOL, 12 os: PRINT CHR€( 143 
3B) 
16 XSFD * Lo: YSFD = 1 


fom 


ea) PEN @ s LOCATE BATCOL, Lao: PRINT CHREe( 143 


NEXT # NEXT 


s CHRE¢ 14 


: CHRE( 14 


OR BATCOL « & THEN 248 
PRINT "sa" § BATCOL = BATCOL ~ 2 
OR BATCOL &» 37 THEN 26 

FRINT "wa" t BATCOL = BATCOL + 2 


Move ball 


cM 
BOTO 20@ 


998 H 
LOA CATE BALL X. RALLY # FRINT "4" 
1005 


ND YSFD <» @ THEN NMISSES = NMISSES + 1 
= 20, 25 : FRINT "MISSES :,."" NMISSES + I 


VOI BALLX = RALLX + XSFO : RALLY = HALLY + YSPD 

1@20 BALLX = ( BALLX » 4@ ) - ¢ BALLX < 1) + BALLX +: BALLY 
= ( BALLY & 24 ) = ( BALLY « 1) + BALLY + IF BALLX = 1 
OR BALLX = 40 THEN HIT = 4 : GOTO 2000 
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140 CF BALLY # 1 OR RALLY = 24 THEN HIT = 4 3s GOTO 2@a@ 
1@60 WHIT = TEST( 16 *% BALLX - 8, 407 ~ 16 * BALLY ) JF HIT 
@ THEN GUTO 2000 

O70 FEN 2 : LOCATE BALLX, RALLY 2 PRINT CHR#( 21 ) 
1080 RETURN 


Collision 


1990: 
2000 IF HIT = 2 THEN NMISSES = NMISSES ~- 1 : IF RND(C It) « @ 
“3S THEN DCT = 3 : GOTO 2028 ELSE DCT = 1 : GOTO 2a2a 


2QQS ( @.5 THEN DCT = 2 ELSE DCT = 3 
2Q10 4 THEN SOUND 1, @, 3, 15, 1, 1, S1 : SCORE = 


Sos NBRICKS = NBRICKS ~ 41 2 TF NRERICKS «< 1 THEN 
LSE GOSUBR 4008 

EW) 1 DECX¢ DOT, YSFD + 2, XSFD + 2) 8 YSPD = DECYC( DCT 
2, XSPD + 2) : XSFPD = XT 

LOCATE BALLX, BALLY # PRINT CHR#E( 231) 


2030 7 
2040 RETURN 


Screen finished 


SCORE = SCORE + 100 2 FAPER to: CLG : FEN 2 8 PRINT "NE 
ROUND a a YOUR ASCORE.SOWFAR fa" SCORE 
. TO S000 : NEXT 


Update score 


399M 
4000 PEN 3 : LOCATE 1, 25 : PRINT "SCORE :,4"3 SCORE 
4010 RETURN 


Game over 


4990 + 

9000 LOCATE 15, 1 1 PEN 2: PRINT "GAME,OVER" 
9010 IF INKEY® = "" THEN 9820 ELSE 9010 

9020 IF INKEY# = "" THEN 9020 ELSE RUN 


Decision data table 


9990 + 
1QWWO DATA -1, @, 1, 1, 
18010 DATA ~1, @, @, 1, @, -1, @, @, @ 
1Q820 DATA @, 1, » 0 

10830 DATA 1, ‘ 

10040 DATA 1 : 

12@8@ DATA 1 ; 
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ChexSum Tables 


1Q s 2622 = $218 
eQ m B72 = 1356 
* Py 4 @ al S22 
4G = = 422 = @ 
SQ = = 1921 
60 = 2 = {S94 = POL 
70 = 362 = 7952 = Q 
BQ = @ 2 ORB = 1459 
9 = @ = 10407 = 1545 
ae = 3441 m 1652 
= 4993 = @ 
=m 2325 = 1097 
= 201 = 1049 
= @ ] 'O@ = 1898 
= 6G:55 10020 = 1097 
2 R7S9 12040 = 1097 
«=  7A9B 1WQSQ = 1097 
= 7Q75 
mm  BEL6 
se 2Q1 TOTAL = 125748 
= Q 
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THIRTY-ONE 


CLASSIFICATION: Parlor Game 


Inflation comes even to Blackjack in this game where the Amstrad 
challenges you to a game of cards! Add the value of your cards and 
if you are closer to 31 than the Amstrad then you win! Of course, a 
hand over 31 costs you (or the Amstrad) the game. 

Answer the questions asked of you by pressing the required numbers 
and then <RETURN>. 


PROGRAMMING SUGGESTIONS 


The game could be made more complex by getting the Amstrad to 
remember what cards have already been used and calculating the 
probabilities for the next card. 
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PROGRAM 
Variables 


CARD$ 
CARD$(52) 
DECK(52) 
CC(52) 
CHAND(16) 
NEXTCD 
ACCOUNT 
MBET 
PPTS 
CPTS 
NPCDS 
NCCDS 
COL, ROW 
CDRAW 
BLANK$ 
PSTOP 

I, J, K, TS 


String for card face 

Each string to be printed on the card face 
Deck of cards 

Colours of cards 

Computer's hand 

Number of the next card on the deck 
Account balance 

Money bet on this hand 

Player’s points 

Computer's points 

Number of player’s cards 

Number of computer's cards 

Column and row for drawing cards 
Card to draw 

Initialise card strings 

Player stopped flag 

Temps 


Program Structure 


Lines 

5 — 420 
430 — 480 
490 — 990 
1077 — 1990 
2077 — 2490 
2507 — 2990 
3077 — 3017 


Function/Activity 

Initialise variables 

Initialise Screen and Player's hand 
Main loop 

Draw card 

Hand finished 

Next round or finish 

Player loses 
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THIRTY — 1 


220 


Initialise variables 


DEF FNPTS( C ) = ( C MOD 13) - 13 *# ( ( CO 4 13) = INT 
(C/ i435) ) 


MODE 1 : INK @, 1 : INK 1, 26 : INK 2, 6 : INK 3, @ 

DEF FNSUIT( C ) = - 228 * (CC < 14 ) =~ 229 * ( C > 39 ) 
~ 227 * ( ( C >= 14 >) AND ( C <= 26) ) = 226 * ( ( C >? 
= 27) AND ( C ¢= 39 ) ) 

SYMBOL AFTER 236 : SYMBOL 2346, 255, 127, 42, 31, 19, 29 
» 9, 16 : SYMBOL 237, 32, S56, 16, 28, 16, 16, 17, 14 
SYMBOL, 238, 255, 254, 172, 248, 248, 248, 188, 136 : SY 


MBOL 239, 116, 92, 84, 108, 106, 218, 151, 7 

SYMBOL 240, @, @, @, @, 3, 7, 15, 15 : SYMBOL 241, @, @ 
, @, @, 255, 255, 255, 255 

SYMBOL 242, @, @, O@, O, 192, 224, 240, 240 : SYMBOL 243 
, 15, 15, 15, 15, 15, 15, 15, 15 

SYMBOL 244, 240, 240, 240, 240, 240, 240, 240, 240: SY 

MBOL 245, 15, 15, 7, 3, @, @, @, @ 

SYMBOL 246, 255, 255, 255, 255, @, @, @, @ : SYMBOL 247 
» 240, 240, 224, 192, @, @, a, @ 

SYMBOL 248, 4, 10, 15, 5S, 7, 5, 1@, 10 + SYMBOL 249, 10 
» 10, 21, 21, 26, 54, 73, 48 

SYMBOL 280, 68, 170, 254, 84, 252, 72, 136, 152 : SYMEO 

L 251, 132, 130, 28, 8, 24, 8, 8, 240 

SYMBOL 282, @, S, 11, 18, 31, 62, 6O, 121 : SYMBOL 253, 
120, 120, 120, 124, 124, 124, 62, 31 

SYMBOL 254, 128, 80, 232, 248, 28, 12, 14, 39 : SYMBOL 

255, 7, 7, 199, 15, 207, 15, 30, 252 

CARD = CHR#( 240 ) + STRINGS( 7, 241 ) + CHR( 242) + 
CHRS( 10) + STRING#( 9, 8) 2 T# = CHR#( 243 ) + STRIN 

G#( 7, 1435 ) + CHRE( 244 ) 

FOR I = 1 TO 9 : CARD® = CARD# + T$ + CHR#( 10) + STRI 

NG#( 9, 8) : NEXT 

CARD = CARDS + CHR#( 245 ) + STRING#( 7, 246 ) + CHRE( 
247) 

DIM CC( SZ), CARDS#( S52), DECK( S2 ), CHAND( 16 ) 

FOR I = 1 TO 26 + CCC I) = 2 3 NEXT 

FOR I = 27 TO 52: CCC I) = 3 : NEXT 

T# = STRING#( 9, 9) + FOR I = 1 TO 10 : BLANKS = BLANK’ 

$ + T# + CHR#( 10) + STRING#( 9, 8) + NEXT 

FOR I = 1 TO S2 : CARDS#( I ) = BLANKS : DECK( I) = I 
t NEXT 

MID$( CARDS#( 1), 21, 1) = "A" : MID#( CARDS#<( 1 
79, 1) = "A" + FOR I = 2 TO 9 : MID#( CARDS#( I), 
1) = CHR#( 48 + I) : MID#( CARDS#( I), 179, 1) 
$( 48 + I) : NEXT 


MID#( CARDS#( 14 ), 21, 1) = "A" ¢ MID#( CARDS#( 14 ), 
179, 1) = "A" 3 FOR IT = 2 T0 9 s MID#( CARDS#( I + 13 
»), 21, 1°) = CHR#( 48 + IT) : MID#( CARDS#( I + 13), 17 

9, 1) = CHR#( 48 + IT) : NEXT 

MID#( CARDS#( 27 ), 21, 1) = "A" s: MID#( CARDS#( 27 ), 
179, 1) = "A" 3 FOR IT = 2 70 9 +: MID#( CARDS#( I + 26 
), 21, 1) = CHR¥( 48 + TIT) + MID#( CARDS#( I + 26 ), 17 

9, 1) = CHR#E( 48 + [T ) : NEXT 

MID#( CARDS#( 40 ), 21, 1) = "A" : MID#( CARDS#( 40), 
179, 1) = "A" 3 FOR I = 2 70 9 : MID#( CARDS#( I + 39 
), 21, 1) = CHR#( 48 + IT ) : MID#( CARDS#( I + 39 ), 17 

9, 1) = CHRE( 48 + IT) 2 NEXT 
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S30 


375 


FOR I = 10 TO 49 STEF 13 1 MID#( CARDS#( I), 21, 1) # 


i 


FOR I = 13 TO S2 STEP 13 : MIDS( CARDS# ( », 21, 1) 
"KY" og MID#¢ CARDS#( I), 179, 1) = "hk" NEXT 

FOR I = 1 TO 4@ STEP 12 : MID#( CARDS#( I), 10@, 1) = 
CHR#¢ FNSUIT(C I) ) s NEXT 

FOR I = 2 TO 41 STEF 13 : MID#( CARDS#( I), 43, 1°) = 

CHR#( FNSUIT( I ) ) : MID#( CARDS#( I), 157, 1 ) = CHRE 
( FNSUIT( IT) ) § NEXT 

FOR T = 3 TO 42 STEP 13 2 MID#( CARDS#( I), 42, 1) # 

CHR#( FNSUIT( I) ) & MID#¢( CARDS#( I), 157, 1) = CHR 
( FNSUIT( I) ) 2 MID@( CARDS#( I), 10@, 1 ) * CHRE( FN 

SUIT(C I) ) & NEXT 


"£2" 2 MID#( CARDS#( I), 22, 1) = "@" s MID#( CARDS#( 
I), 178, 1) = "1" : MID#( CARDS#( IT), 179, 1) = "Q" 
: NEXT 
FOR I = 11 TO S@ STEP 13 : MID#( CARDS#( I), 21, 1) = 

"3" os MID#¢( CARDS#( I ), 179, 1) = "J" s NEXT 
FOR I = 12 TO Si STEF 13 : MID#( CARDS#( I), 21, 1) * 

"Q" = MID#( CARDS#( I), 179, 1) = "QQ" s NEXT 

I 


FOR I = 4 TO 43 STEF 13 : T# = CHR#( FNSUIT( I) ) : MI 
D#¥( CARDS#( I), 41, 1) = T# : MID#( CARDS#( I), 45, 1 
) = T# : MID#( CARDS#( I), 155, 1) = T# 2 MID#( CARDS 


(To), 159, 1) = T# s NEXT 

FOR I = 5 TO 44 STEP 13 s T# = CHR#( FNSUIT( I) ) 

D#( CARDS#( I), 41, 1) = T# + MID#( CARDS#( I), 45, 1 
) = T# : MID#( CARDS#( I), 185, 1) = T# : MID#( 

$#¢ 2), 159, 1) = T# : MID#( CARDS#( I), 100, 1) = T# 
s NEXT 


FOR I = 6 TO 45 STEP 13 : T# = CHR#( FNSUIT( I) ) : MI 
D#( CARDS#( [ ), 41, 1) = T# s MID#( CARDS#( I), 45, 1 
) = T# : MID#( CARDS#( I), 155, 1) = T# : MID#( CARDS 
°C To), 189, 1) = TH s MID#( CARDS#( IT), 1@2, 1) = Ts 
MID#( CARDS#( I), 98, 1) = T# : NEXT 
FOR I = 7 TO 46 STEP 13 2 T# = CHR#( FNGUIT( I) ) : MI 
D#( CARDS#( IT), 41, 1°) = T# : MID#( CARDS#( I), 45, 1 
) = T# : MID#( CARDS#( I), 155, 1) = T# : MID#( CARDS 
(1), 159, 1) = T# + MID#( CARDS#( I), 102, 1) = TH 


MID#( CARDS$( I), 62, 1) = T# 2 MID#( CARDS#( I), 98 
, 1) = T# + NEXT 


FOR I = 8 TO 47 STEF 13 : T# = CHR#( FNSUIT( IT) ) : MI 
D#¢ CARDS#( I), 41, 1) = T# : MID#( CARDS#( I), 45, 1 
) = T# : MID#( CARDS#( I), 155, 1) = T# : MID#( CARDS 


CT), 159, 1) = T# : MID#( CARDS#( I), 102, 1) = T# 


MID#( CARDS#( I), 62, 1 ) = T# : MID#( CARDS#( I ), 98 
» 1) = T# +: MID#( CARDS#( I), 138, 1) = T# s NEXT 
FOR I = 9 TO 48 STEP 13 : T# = CHR#( FNSUIT( IT) ) : MI 


D#¢( CARDS#( [ ), 41, 1 ) = T# s MID#( CARDS#( I), 45, 1 
») = T# : MID#( CARDS#( I), 79, 1) = T#¥ : MID#( CARDS# 
(1), 83, 1) = T# 2 MID#( CARDS#( IT), 117, 1) = TH 
MID#( CARDS#( I), 121, 1) = T# : MID#( CARDS#( I), 1 
SS, 1) = T# s MID#( CARDS#( I), 159, 1) = TS s MID#( 
CARDS#( I), 10@, 1 ) = T# : NEXT 
FOR I = 10 TO 49 STEP 13 3: T# = CHR#( FNSUIT(C IT) ) 
ID#( CARDS#( I), 41, 1) = T# : MID#( CARDS#( I), 
1) = T# : MID#( CARDS#( I), 79, 1) = T# s MID#( C 
#( I), 83, 1) = T# +: MID#( CARDS#( I), 117, 1) = 
MID#( CARDS#( I), 121, 1) = T# : MID#( CARDS#( I ) 
SS, 1) = T# +: MID#( CARDS#( I), 159, 1) = T# : MI 
CARDS#( I), 62, 1 ) = TE : MID#( CARDS#( I), 138, 
= T$ : NEXT 
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38 


480 
490 


990 


FOR IT = 11 TO SQ STEF 13 : T# = CHR#( FNSUIT( I) ) s M 
ID#( CARDS#( I), 27, 1 ) = T# 3: MID#( CARDS#( I ), 173, 
1) = T# : MID#( CARDS#( I), 99, 1) = CHR#( 236 ) : M 
ID#( CARDS#( I), 10@, 1) = CHR#( 238 ) : MID#( CARDS#( 
I), 118, 1 ) = CHR# (237) 
MID#( CARDS#( I), 119, 1 


) = CHR# (239) : NEXT 
FOR I = 12 TO Si STEP 13 : T 


# = CHR#( FNSUIT( I) >) : M 
ID#( CARDS#( I), 27, 1 ) = T# s MID#( CARDS#( I), 173, 
1) = T# : MID#( CARDS#( I), 99, 1) = CHRE( 252 1M 
ID#( CARDS#( I), 1@@, 1 = CHR#( 254 ) s MID#( CARDS# ( 


) 
I), 118, 1) = CHR# (253) 
MID#( CARDS#( I), 119, 1 ) = CHR#E(255) s NEXT 
FOR IT = 13 TO S2 STEP 12 : T# = CHR#( FNSUITC IT) ) 8 M 
ID#( CARDS#( I), 27, 1) = T# : MID#( CARDS#( I), 175, 
1) = T# : MID#( CARDS#( I), 99, 1) = CHR#( 248 ) : M 
ID#( CARDG#( I), 100, 1 ) = CHR#( 250 ) : MID#( CARDS#( 
I), 118, 1) ™ CHR# (249) 
MID#( CARDS#( I), 119, 1) = CHR#E(251) 3: NEXT 
ACCOUNT = 100 : FOR I = 1 TO 10@ : J = INT( RND( i) * 
S2o) + lor k = INTC RND( 1) * S2 + to: T = DECK( J ) 
t+ DECK ( Jo) = DECK ( Eo) 2 DECK ( Eo) = T os NEXT 


Initialise screen and player's hand 


PAFER @ : CLS : BORDER 1 

PEN 1 : LOCATE 15, 10: PRINT "YOURAHAND" +: LOCATE 15, 2 

So: PRINT "ACCOUNT :4"3 3: FRINT USING "S444. #4#"3 ACC 
QUNT 

NEXTCD = 2: CDRAW = DECK ( 1) : COL = 1: ROW = 2: GO 

SUB 100@ : NPCDS = 1 

FPTS = FNPTS( CDRAW ) : LOCATE 15, 15 : PEN 1 : PRINT " 

FOINTS :4"3 FPTS 

LOCATE 1, 20 : INPUT "Initial.bet."5; X# : MBET = VAL( X 

€ ) 


Main program loop 


H 

NCCDS = NCCDS + 1 : CFTS = CPTS + FNPTS( DECK ( NEXTCD ) 
Yo: CHAND( NCCDS ) = DECK ( NEXTCD ) +» NEXTCD = NEXTCD + 
1: IF CFTS > 25 AND PSTOP = 1 THEN 2000 

IF PSTOP = 1 THEN 492 ELSE CDRAW = DECK ( NEXTCD ) +s COL 
= 1+ 4 * NPCDS : ROW = 2 : GOSUB 1000 : NEXTCD = NEXTC 

D+ 1: NPCDS = NPCDS + 1 

FPTS = FFTS + FNPTS( CDRAW ) : LOCATE 15, 15 : FEN 1 : 

PRINT "POINTS sa" PPTS +: IF PPTS » 31 THEN 30@@ 

LOCATE 1, 22 : PEN 1 : INPUT "WANTATOLSTOPACY/N) "3 X# 5 
IF X# <> "Y" AND X# <> "y" THEN S20 ELSE PSTOP = 10: IF 
CFTS » 25 THEN 2@0@0 ELSE 490 

LOCATE 1, 20 2 INPUT "HOW,AMUCHATOVADD.ATO.YOURABET" 3s X# 

: MBET = MBET + VAL( X# ) 

LOCATE 1, 20 : PRINT SPACE#( 39 ) s LOCATE 1, 22 : PRIN 

T SFACE#( 39 ) : IF CPTS > 25 THEN S@Q ELSE GOTO 4928 


Draw card 
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1000 
1210 
1020 


1030 
1040 


1990 
2000 


2018 


2020 
203 


2040 
2050 


2990 
3000 


2210 


PEN 1 : LOCATE COL, ROW 

PRINT USING "&"s; CARDS : PAPER 1 

FEN CC( CDRAW ) s LOCATE COL, ROW : FRINT USING "&"s CA 
RDS#( CDRAW ) 

FAFER @ 

RETURN 


Hand finished 


LOCATE 15, 15 : PRINT SPACE#( 2@ ) : LOCATE 15, 13 : PE 
N 1: FRINT "AMSTRAD’S.HAND 44" © FOR I = 1 TO NCCDS : C 
OL. = 4 * I - 3 +: ROW = 14 : CDRAW = CHAND( I ) : GOSUB 1 
@@@ : NEXT 

FEN 1 : LOCATE 1, 25 : PRINT "YOURAFOINTS :4"3 FPTS; "A 
MSTRAD'S.POINTS :4"3 CPTS 

FOR I = 1 TO 6@@@ : NEXT 

LOCATE 1, 25 : PRINT SPACE#( 39 ) : IF CPTS > 31 THEN 2 
O50 

IF CFTS > FFTS THEN 3000 ELSE IF FFTS = CPTS THEN CLS : 
PRINT "IT.AITS.A.DRAW,L!!" +: GOTO 2500 

CLS : PRINT "YOURAWIN,A!!" s ACCOUNT = ACCOUNT + MBET : 
GOTO 25a 


Next round or finish 


FOR I = 1 TO 4000 : NEXT 

FOR I = 1 TO 100 : J = INT( RND( 1) * S2 
NTC RND( 1) * S52) + 1 : T = DECK( J) : 
CKC Ko) : DECK( Ko) = T : NEXT 

CFTS = @ +: NCCDS = @ : FSTOF = @ : MBET = 
PRINT : INFUT "ANOTHERAHAND"; X# : IF X# = "Y" OR X# = 
"y" THEN 43 

FRINT : PRINT "YOUR.JZACCOUNT :4"3 : PRINT USING "S844 
#. ##"5° ACCOUNT 

IF ACCOUNT «< @ THEN PRINT "EXPECT..A.AVISITABY.THE.BOYS,! 
!!" ELSE PRINT "ENJOY,.YOUR.WINNINGS,!!!" 

END 


Player loses 


: 

FOR I = 1 TO 2000 : NEXT : CLS : FRINT "AMSTRAD,.WINS,! ! 
"3 ACCOUNT = ACCOUNT - MBET 

GOTO 2500 
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ChexSum Tables 


be) 
10 
15 


HH RE EH HOH OB 


Ho # RRR HRR HGH AR EOE 


HER EB 


B 


4223 
1338 
8647 
S511 
4730 
3064 
3Q9Q 
4016 
3954 
2415 
3867 
3246 
3G33 
7400 
4093 
3812 
2589 
2012 
2076 
5297 
2903 
8815 
9459 
S11 
96:5 
8075 
4903 
4919 
4909 
4340 


290 
308 
310 
320 
330 
335 
348 
345 
35 
355 
360 
365 
370 
375 
380 
385 
390 
395 
420 
405 
412 
420 
420 
440 
45 
460 
47@ 
480 
490 
bal) 


Hoi 


Hoe BB HH # HR RRR HR RH PRR PREP PR ROE OR 


7246 
10056 
1@261 
11958 
11817 
19@1 
11819 
3590 
11821 
S355 
11686 
7251 
11699 
8978 
12979 
2342 
12029 
2326 
12019 
2254 
9928 
@ 
S81 
4495 
4628 
3893 
233 
@ 
11290 
9554 
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5S 

51 

320 

S30 

99@ 
100a@ 
121@ 
1820 
1930 
1042 
199 
2000 
201 
2020 
2030 
2040 
2050 
2490 
2500 
2510 
2528 
25208 
2540 
2550 
2568 
2990 
200Q 
3018 


TOTAL. 


fi 


if G HOB OE 


RHEE ROH 


Hon OH OH 


i 


ih Go # gH 


6885 
7340 
4633 
4057 
@ 
1232 
1336 
3860 
252 
201 
@ 
8504 
280 
1296 
2258 
9448 
2814 
@ 
1336 
8939 
2IIQ 
3885 
7242 
5628 
152 
@ 
S36 
427 


450778 
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THE CHEAP DETECTIVE 


CLASSIFICATION: Adventure Game 


This is a standard text adventure. The object of the game is to find the 
hidden microfilm and pass it on to your contact. Along the way you will 
find some unfriendly characters. If they decide to attack you, you can 
defend yourself with one of the weapons scattered around, you may 
sometimes need to look to yourself! 

The commands are the usual verb, object and the vocabulary is fairly 
standard, but if a word does not work then try a different one. 


PROGRAMMING SUGGESTIONS 


To make it harder simply reduce the Hit Points (HP) or make the attacks 
more frequent. It would be nice to add some graphics and a sizeable 
sound routine. The game could be made more complex by the addition 
of a few mazes and a thief. 
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PROGRAM 


Verb 

Object 

Room description 
Codeword 

Room number 
Tokens 

Objects 


Program Structure 


Variables 
AS 

BS 

D$(X) 

D$ & E$ 

L(X) 

O$ & W$ 
O$(X) 

Lines 

10 —40 
60 — 280 
307 — 380 
407 — 480 
507 — 730 
750 — 880 
900 — 930 
950 — 1430 
1450 — 1620 
1640 

1660 — 1670 
1690 — 2510 
2530 — 2590 
26108 — 2660 
29108 — 2970 
2998 — 3067 
3080 — 3130 


Function/Activity 

Initialise and display intro 

Set up data for rooms, objects 

Set input window and get player's command 
Display inventory 

Set verb/check verb and object 
Check move and describe room 
Check verb and call object description 
Messages 

Intro and Instructions 

Calculate hit points 

Sound routine 

Messages 

Phone routine 

Code word and completed mission 
Messages 

Wait for keypress 

End game 
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THE CHEAP DETECTIVE 


12 
22 
30 
42 


Initialise variables and Introduction 


RANDOMIZE TIME 

MODE 1 

CLEAR : WINDOW #0, 1, 40, 1, 20 

DIM L(28) ,O#(45) ,H(11) ,P(17,6) ,D#(17) =: PO=38 


Set up data for rooms and objects 


FOR X=1 TO 8 : D#=D$+CHR# (INT (RND(4)*26)+65) : ES=ES+CH 

R# CINTCRND(1)*26)4+65) : NEXT X 

FOR X=1 TO 3@ : READ L(X) s NEXT X : FOR X=1 TO 30: IF 
L(X)=@ THEN L(X)=INTC(RND(1)*#18)+1 8s IF L¢(X)=18 THEN L(X 
)=25 

NEXT X 

DATA 13 ,5 ,14 ,2 ,16 ,@ ,@ ,11 ,3 ,10 ,20 ,2 ,9 ,11 ,6 
14 4,12 ,14 ,1 ,8 ,8 ,@ ,25 ,@ ,25 ,0 ,7 ,25 ,®@ ,25 

FOR X=31 TO 38 : L(X)=INT(RND(1)*#17)4+1 8 NEXT X : FOR X 

s=1 TO 11 : READ H(X) s NEXT X : FOR X=1 TO 44 : READ O4( 

X) 2 NEXT X 

FOR X=12 TO 38 : IF L(X)=5 AND X<>27 THEN L(X)=25 

NEXT X 

DATA 20 ,4@ ,100, 20 ,400 ,75 ,175 ,100@ ,75 ,100 ,100 

DATA German sheperd, Shark, Tall man in stocking mask, 

Two teens necking, Cycle gang 

DATA Wino, Lenny the loan-shark , Teddy the torch, Casi 

no guard, Hostess, Contact, Railing 

DATA Slot machine, Car, Ferris wheel, Life guard stand, 
Closed doors, Locked hatch, Rubbish bin 

DATA Cabinet, Gas can, Knife, Stick, Telephone, #25000 

in metal box, Bullets 

DATA Fishing rod, Lighter, Keys, Gun, Newspaper, #12 Do 
llar tokens, Shells, Metal detector, Message 

DATA Suitcase, Flashlight, Microfilm, North, South, Eas 

t, West, Up*, Down 

FOR Y=1 TO 16 : FOR X=1 TO 6 : READ FC(Y,X) 1: NEXT X,Y 3 
FOR X#=1 TO 17 : READ D#(X) =: NEXT X 

DATA 1, 245 3,5 4, 1, 2, 6, By5, 10, 9, 1,, 12, 14, 7, 

4, 5S, 16, 1,, Sy Sy Sy 4a Soone 2yy Sos Fy Soyo Sayy By 


DATA Soanse55 Sooa59 14555 11, 8,, 15, 12, 12, 12,, 3, 
13, 11, 14,555, 11, 16, 13, 3, 12, vy 16, 4, 14,, 
0$=" GERSHATAL TWOCYCGWINLENTEDCASHOSCONRAISLOCARFERL IFCLO 
LOCTRACABGASKNISTI" 
O#=0$+"TELS25BULF ISL IGKEYGUNNEWCHI SHEMETMESSUIFLAMICNOR 
SOUEASWESUF*DOW" 

W#="GOTADILOREATOPLIDRCA" : CLS : BORDER @ : PAPER @ : 
GOTO 145@ 

DATA SIDEWALK IN FRONT OF CASINO, SIDEWALK IN FRONT OF 
BATHOUSE, ENTRY TO CASINO, BEACH 

DATA WATER, AMUSEMENT PIER, JETTY, BATHOUSE, CASINO IN 
HOTEL, THEATRE IN HOTEL, STREET 

DATA HALLWAY IN HOTEL, BACK ALLEY, CAR FARK, YOUR HOTEL 
ROOM, UNDER THE SIDEWALK, CAR 
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290 
400 


410 
420 
430 
442 
450 
460 
470 
480 


492 
500 
510 
520 
530 
54 
s3Q 
5468 
578 
58 
5970 
480 
610 
620 
630 
640 
650 
660 
678 
680 
690 
700 
710 
72 

73 


Set Input window and get player's command 


WINDOW #1, 1,40,23,25 : CLS #1 : INPUT #1, A® : as=UPPE 
R#(a$) 1 FR=@ : FOR KY=1 TO LEN (A#) +: IF MID#® (A¥,KY,1) 


="V" AND LEN (A$) >KY+1 THEN B#=MID# (AS,EY + 1,5) 
IF MID#® (AS,KY,1)="4" THEN DP=1 

NEXT KY s IF LEN (A#)>1 THEN AS=LEFT# (AS,2) 

IF DPeel THEN Be="" : DF =Q 

IF B#<>"" AND LEN (B#) <> THEN 200 

IF LEN (A#)<>2 THEN 220 

IF RIGHT# (BS,1)="," THEN 300 

CLS 

RETURN 


Display Inventory in text window 


Hy 

WINDOW 1,4@,1,21 : CLS : PRINT "Yousarescarrying 
FOR CRY=1 TO 38: IF L(CRY)<>@ THEN GOTO 470 
INK 1,2 

Q#=0% (CRY) 

FRINT LEFTS(Q$,1)3 

Q$=RIGHT# (Q#,LEN(Q#)~-1) 

FRINT LOWERS (Qs) 

Y= 

NEXT CRY : IF Y=@ THEN PRINT "Nothing" : RETURN 
RETURN 


Set and check verb 


IF A#="GE" THEN A#="TA" 
IF B="TEE" THEN B¢="TWO" 
IF B#="ROD" THEN Be="FIS" 
IF B¥="MAS" THEN BS="TAL" 
IF AS="HI" THEN As="AT" 
IF A¥="FI" THEN Ag="AT" 
IF B&="TOR" THEN B#="TED" 
IF B¥="LOA" THEN B#="LEN" 
IF B¢="BOX" THEN Be="$25" 
IF A¢="IN" THEN Y=@ : GOSUB 4@@ : GOTO 108 
IF B#="MAC" THEN Be="SLO" 
IF B#="D00" THEN B¥="CLO" 
IF As="KI" THEN Ag="AT" 
IF B¢="PHO" THEN B¢="TEL" 
IF AS="GI" THEN A#="DR" 
IF BS="GANG" THEN B="CYC" 
IF B#="MAN" THEN B#="TAL" 
IF B#="DET" THEN B#="MET" 
IF BS="GUA" THEN B$="CAS" 
IF B¢="STA" THEN Be="LIF" 
IF B¢="DOG" THEN B#="GER" 
IF Ag="SH" THEN AS#"AT" 
IF B#="HAT" THEN B#="LOC" 
IF B¥="$1@0" THEN B¢="CHI" 
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Check players move and describe room 


748 H 

750 FOR Y=1 TO LEN (WS) s IF MID# (W#,Y,2)=AS THEN F=(Y+1)/ 
2: GOTO 770 

760 NEXT Y : F=@ 

778 FOR X=1 TO LEN (O#) STEP 3 : IF MID# (0%,X,3)=B¢ THEN S 
SINT((X+2)/3) © GOTO 798 

780 NEXT X : IF (S>45 OR Sti) AND B#<>"" THEN F=-1 

798 IF Feil OR F21Q@ THEN PRINT "Whatuthezhell Mac!" : GOTO 1 


08a 
8Q0 ON F-1 GOTO 1810, 1110, 900, 1020, 1930, 1180, 1290, 13 
40, 2530 


810 MM=MM+i1 os IF MM/S=INT(MM/S) THEN GOSUR 1760 

82 IF PJ<>@ THEN S=1 

820 IF S<239 THEN GOSUB 2920 : GOTO 1080 

84 IF $228 THEN S=S-38 

850 IF FCL,S) THEN L#=FP(L,S) : L2=L. 

860 IF I[T=@ THEN GOSUB 2750 : PRINT "Yousaresin.g" : PRINT L 
QWERS(D#(L)) : Y=@ : IF L=5 AND C>4 THEN 1890 ELSE 880 

872 IF IT<>@ THEN GOSUB 2770 : PRINT "You,aresina"” © PRINT 
LOWERS (D#(L)) : Y=@ : IF L=5 AND C>4 THEN 1899 

882 GOSUB 1692 : GOSUB 1140 : GOTO 1880 


Check verb and call object description 


890 H 

9O IF B¢=""" THEN 860 

91 DD=1 : IF S<39 AND S>@ THEN 950 

920 SeS-39 2 L2aeP(L,S) 2 IF L2=@ THEN L2=L. 

930 GOSUB 1692 : PRINT "“in";LOWER#(D#(L2)) 2: Lael: GOTO 1 
8a 


Display messages for Codeword and Microfilm 


94 H 

950 IF LCS) ok AND L(S)<>@ THEN PRINT "That,zisn’tuhere!" 3: 
GOTO 1080 

960 IF S=31 AND RND(TIME / 300) >@.3 THEN FRINT "Code.word.si 
s4.'3D#% 3: GOTO 1080 

970 IF S31 THEN PRINT "Code,.word,is.";E# +: GOTO 1080 

98 IF S34 AND L(38)<>0 THEN GOSUB 2640 : PRINT "Microfilm 
ain" s PRINT LOWERS (D#(X)) +: L(38)=X : FQ=37 + GOTO 1080 


990 IF S=20 OR S#26 THEN PRINT "locked" +: GOTO 1080 
1000) FRINT "ordinary,.";LOWER#(0#(S)) : GOTO 1080 


Abort read message 


1@1Q@ 

102 IF S{o31 AND S<>35 THEN PRINT "Nothing.zthere.zto,read" : 
GOTO 1280 

1020 IF L(S)<>@ THEN FRINT "You,don’tyhave,it!" + GOTO 1080 

1248 GOTO 968 
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1Q5a@ 
1060 


1070 


1082 
129 


110@ 
1110 
1120 
1130 
1148 
1150 


1160 


1280 
1290 


1200 
131 


1220 


Locks all exits 


L=1iS : L2=l : FOR I=i TO ZC : 
NEXT DN s GOSUB 2990 : NEXT I 
PRINT : PRINT "Youuaresing" =: 
UR 1692 : GOSUB 1140 

Ag="""5 B$="" : S=O s FQ s H=O 
GOSUB 2250 : GOSUB 700 : GOTO Sa@ 


FOR DN=@ TO 2: FRINT : 
PRINT LOWERS (D#(L)) : GOS 


Messages for digging, exits blocked and legal exits 


2 
IF L=4 AND L(33)=@ THEN GOSUB 2800 : GOTO 1080 

IF L=4 THEN PRINT "Youxudon‘tyhave,any.ztools!" : GOTO 18 
8a 

PRINT "“Yougcan’tudig.zhere!" s GOTO 1080 

IF Pd=1 THEN PRINT"Alluvisiblevexits.blocked" : RETURN 
PRINT "Visiblevexits.,are s4." 3 FOR X#1i TO 6 ¢ IF FPC(L,X) 
7@ AND P(L,X) “eh. THEN PRINT LOWER# (O#(X+38)) 3 "A" 5 

NEXT + PRINT s RETURN 


Messages for open 


IF L(S)<>L THEN FRINT "Notyhere!" : FRINT +: GOTO 1080 
IF S=14 AND L.(29)=@ AND L.(21)#@ THEN L(29)"-1 8 PRINT " 
Car,tinlocked!" + GOTO 1080 

IF S=14 AND L(30)=@ AND L.(26)=@ THEN PRINT "Shot ythroug 
h,wWwindow,to,unlock" : L (29)=-1 : GOTO 1080 

IF S20 AND L(29)=@ THEN GOSUR 2370 : GOSUB 244@ : GOSU 
B 1692 : GOTO 1080 

IF S36 AND L(29)432@ THEN PRINT “locked!" : FRINT « GOT 
QO 1080 

IF S$*36 AND L(29)=@ THEN GOSUR 2370 : GOSUB 1690 1: GOSU 
BK 2610 : GOTO 1080 

IF S*17 THEN FRINT "Fell,down,utility,zchute" + GOSUR 28 
B80 : L2=L +: FJ=@ : GOTO 862 

IF S18 AND L(29)=@ THEN GOSUB 24420 : 0#(18)="OFEN,HATC 
H" : GOTO 1080 

IF (S18 OR S*2@) AND L(29)420 THEN FRINT' It ’s,locked!! 
"; PRINT +: GOTO 1088 

GOTO 1080 


Can explodes 


IF Se>37 AND Se>28 THEN PRINT "Can‘t!" s: PRINT : GOTO 1 
8a 

IF L(S)e£2@ THEN PRINT "Don’tyhave,sit!" 2 PRINT +: GOTO 1 
082 

IF S28 AND (L(21)=@ OR L(21)=L) THEN GOSUR 2680 : FRIN 
T os PRINT "Leaky.gas.can,explode" : FRINT : GOTO 1082 
FL=i1 os GOTO 1080 
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123 


1340 


135 
126@ 


1372 
1380 


139 
1420 


1410 
1420 
1420 


144 
1450 


1460 
1470 
1480 


1490 


150@ 
151 
1520 
15230 
1542 
1550 


1560 
1570 


1580 
1592 
1600 
1610 


1620 


Ripped off messages 


IF L(S)<e@ THEN FRINT "Don’tuhave,zit!" : PRINT +: GOTO 1 

28a 

IF S25 OR S*36 THEN C#C-1 

IF S21 AND L(8)#. THEN PRINT O#(8)3 "“Ytookygas,and" : 

L(S)=30 : C=C-1 1: S=8 : GOSUB 2360 : GOTO 1080 

CeC-1 3 LS) = 

IF S#25 AND L.(S)=L THEN FRINT O#(5)3 "“,took,ymoney,and" 
: L(S)=30 : S=S + GOSUR 2362 : GOTO 1080 

IF S=38 AND L(11)=L THEN 2620 

IF S=25 AND L(7)=L THEN PRINT 0#(7) : PRINT "paidwoff!" 
6 L(S)=30 s CmC~1 : S=7 1 GOSUR 23460 : GOTO 1080 

IF S=32 AND L(7)sL. THEN PRINT 0#(7) : PRINT "paidwoff!" 
s L(S)=20 3: C=C-1 : S=7 : GOSUB 2360 : GOTO 1080 

IF S$=38 AND L.(1@)2L THEN PRINT O#(10)3 "enemy agent wan 

d.digsables,zyousanyway" + PRINT : GOTO 2199 

GOTO 1080 


Intro 


Hy 

CLS s: LOCATE 15,2 : PRINT "Welcome.to," +: LOCATE 10,4 : 
PRINT "THE,CHEAP DETECTIVE" 

PRINT : PRINT “yvsasadtumble,zyour.zway,around,zthisvone" : 
LOCATE 18,8 s: PRINT “ANDAPLAY,IT.AGAIN! !" 

LOCATE 1,20 3: PRINT "Do.you.wish.tozview.the.zplots(Y/N 
yarns 

PRE = UPPERS (CINKEY#) s IF PRE# = "" THEN GOTO 148@ ELS 
E IF PRES = "Y" OR PRE = "N" THEN 1490 ELSE PRINT CHR# (7 
);CHR#(7) : GOTO 1480 

IF PRE#="N" THEN GOSUB 1640 : ZC=1 3: GOTO 1860 


Instructions 


CLS s: LOCATE 12,2 : PRINT" The.story.so.far." 

LOCATE 1,8 8 PRINT "“,You.are,.working.wfory,a,Government a 
gency" 

PRINT "atrying.zto.recover stolen,.Microfilmwand" 

PRINT s PRINT ",pass.it.zon,.to.zyour,.contact." 

PRINT + FRINT ",You,zhave,ztraced,the,microfilmatowan" ¢ 
PRINT : PRINT "east rcoast,resort." 

GOSUB 2999 

GOSUB 1640 : FRINT : FRINT ",You,are,.zHospitalised vifuyo 
ur,hit.vpoints" 

PRINT "ugo,to.zero." 

GOSUB 2992 

PRINT : PRINT ",Use.TWO,.word.zcommands,.ofuthe.zform : " 
: PRINT : PRINT ",VERB,ZOBJECT" s PRINT 

PRINT s PRINT ",You,umay,zuse.z2,letters,ofuverbuand" : FR 
INT : PRINT "“JS,.0f.zobject." 

PRINT : FRINT ",Use,UFP*,.foruup" s: GOSUBR 2990 : LOCATE 1 
vil + CLS : GOTO 1068 
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16358 
1640 


165 
1660 


1670 


168 
1698 
17@@ 
1710 
1720 


173 
1740 


1750 
1768 
1772 


178 
1798 


182 
1810 


1820 
1830 
1842 
185 
1860 
1870 


188 
189 


Calculate Hit points 


HP=INTCRND(2)*#25)+25 : CLS +: LOCATE 8,5 : PRINT "Youaha 
Vea Ghps"ahit.zpoints" : LOCATE 1,8 : RETURN 


Sound routine 


FOR J®3 TO 15 : ENV J,100,2,20 : SOUND 1,50,50,3,4,1 ¢ 
NEXT J 

FOR J=15 TO 1 STEP—1 : ENV J,100,2,20 : SOUND 1,50,50,d 
14,1 8 NEXT Jo: RETURN 


Visible objects in room 


= 10 OR L2 = 16 OR L2 = 14 THEN GOSUB 2290 
IF FL = 2 THEN FL = @ + GOTO 1740 

: YY = @ : GOSUB 2490 : FRINT +: FRINT "Youusee : 
“, FOR X = 1 TO 38 
IF U(X) = L2 THEN FRINT OF(X)s "J. "3 2 Y = Y + Loa IF X 
“ 11 AND PJ = @ THEN GOSUB 2268 
NEXT X s FRINT : IF Y = @ THEN FRINT ",Nothing" 
PRINT : DD = @ : RETURN 


Random routine for objects 


FOR X = 33 TO FQ 

IF U(X) <> @ THEN L(X) = INT(RND (1) * 18) + 1 8 IF LX 
) = 18 THEN L(X) = 25 

IF (X = 34 OR X = 38) AND L(X) = &S THEN 1770 

NEXT X 1 GOSUER 28230 : RETURN 


Error messages for ‘GET’ 


IF S > 38 THEN FRINT "Youucan’tutakevassaaeadirection" 
: GOTO 1080 


IF § « 21 THEN FRINT "“Youucan’tytake,zthat!!" 5 GOTO 108 
@ 

IF S = 24 THEN FRINT "It‘'s,.wired,to.zthe,wall" +: GOTO 10 
8a 

IF L(S) «<> Lo THEN FRINT "That ’s,znot,here!!" : GOTO 1080 


IF C > 6& THEN PRINT "“You,can’tucarryathat,zmuch!" : GOTO 
1080 

IF § = 38 THEN HF = HF + 10 

IF S$=25 OR S=36 THEN C=C+1 

L(S) = @: C=C + 1: GOTO 108a 

GOSUB 1910 : PRINT “You,are.carrying,.ztoo,much,to,swim" 
: GOSUB 1910 : FRINT "Youudrowned" : GOSUB 1910 
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1900 
1912 


GOSUB 2700 : FRINT "But vyou.are.zrevived.by paramedics." 
: GOTO 2190 
RETURN 


Drowned routine 


IF S > 11 THEN FRINT "Therevis.znothing.to,.attack" : GOT 
O 1080 

IF L(S) <> Lo THEN FRINT "Notwhere!" : GOTO 1080 

INFUT "With,.what'"; X# 1 BS = LEFTS(X$, 3) : BS=UPPERS (5 

#) 

IF BS = "FOO" THEN FRINT ",Goodumove!,z.Black,belt!" os: H 
= @: DP = 4 3: GOTO 2020 

IF BS = "HAN" THEN H = @ : DP = 2 1: GOTO 2020 

FOR X = 1 TO LEN(O#) STEP 3 s IF MID#(O#, X, 3) = BS TH 
EN H = INT((X + 2) / 3) : GOTO 1080 

NEXT X 

IF LH) <> @ THEN PRINT "Youadon’tuhavezthat" + GOTO 10 
8a 

IF H «> 22 AND H «<> 23 AND H <> 3@ AND H «> 27 AND H «> 
28 AND H <> 34 AND H <> 37 THEN PRINT "Thats .not wa.wea 
pan!" s GOTO 1080 

IF H = 3@ AND L(26) <> @ THEN PRINT "Not ,loaded-use.as, 
a.clubswzonly" : DP = § 


IF S$ = 1 OR S = 4 THEN DD = 1 

IF § = 2 THEN DD * 2 

IF H = 23 OR H = 27 THEN DP = 3 

IF $= 3 OR S = 8 OR S = 10 OR S = 11 THEN DD = 4 
IF S = 5 THEN DD = 10 

IF GS = 6 OR §S = 9 THEN DD # 5 

IF H = 26 OR H = 37 OR H = 22 THEN DP = & 

IF S$ = 7 THEN DD = 6 

IF H = 3@ THEN DF = 12 


PRINT "Youughave'"y; HFy "hitypoints" : FRINT O#(S) : PRIN 
T "has": H(S); "“hit.wpoints" 

YO = INT(RND(1) * DF * 3) + DP : OF = INTCRND(4) * DD * 
3) 2 PRINT “YOULATTACK ZANDJINFLICT"y YO; "HIT APOINTS" 
PRINT +: FRINT O#(9) & PRINT "ATTACKES.ZANDAINFLICTS" : FR 

INT OF; "HITAPOINTS" +: H(S) = H(S) =~ YO 

IF H(S) « 1 THEN FRINT ¢ PRINT "YOU,QVERCAME ,OFFONENT !" 
: u¢(S) = 30: PJ = @: HP = HP + 3 * DD: LH) = 25 2 C 
= C® - 1 +: GOTO 1080 

IF RND(1) > @.85 THEN GOSUBR 2246 

HF = HP - OF : IF HF < 1 THEN GOTO 21990 

GOTO 1080 

PRINT CHR#(7) : PRINT "YOU,ARE.ZIN HOSPITAL." s PRINT ¢ 

PRINT"WITHOUTATHE .MICROF ILM!" 

PRINT : PRINT "DO.LYOULWANT,.TOZRETURN,TO,YOURJHOTEL .ROOM 

wANDATRY wAGAIN" 

INFUT REFS s REFPS=UPPERS(REP#) s IF LEFTS(REP#, 1) = "VY 
" THEN GOTO 2192 

IF LEFT#(REP#, 1) = "N" THEN 3080 

PRINT CHR# (7) ;CHR#E(7);CHR#(7) + GOTO 2210 

END 

FRINT +: FRINT "Whatudouyou.zwant.to.do" s RETURN 

IF (X = 4 OR X = 6) AND RND(1) » @.25 THEN RETURN 

IF X » 8 AND RND(1) > @.4 THEN RETURN 

IF F = 4 THEN RETURN 

IF RND(6) « 35 THEN RETURN 
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2300 
2310 


2320 
2338 
2240 
2350 
23460 


2378 


2380 
2390 


2420 
2412 
2420 


2430 


2440 
2450 
2460 


2470 


248 
2490 
2500 
2510 


2520 
2530 


2540 
2550 
2560 
2570 
2580 
2590 


IF X = 4 THEN O#(X) = "TWO. TEENS" 

OF = INT(RND(S) * 18) : FRINT CHR#(7) : PRINT O#(X) ¢ F 
RINT “ATTACKS.ANDJINFLICTS" +: PRINT OP3 “HIT.POINTS.DAMA 

GE!" 

HP = HP - OP : IF HP < 1 THEN GOTO 2192 

PJ = 1 : RETURN 

PRINT CHR# (7) 

RETURN 

PJ = @: L(S) = 25 : IT = 100 : PRINT CHR#(7) : FRINT " 
THEN.RAN.JAWAY! "= : RETURN 

FOR X = 12 TO 30 : IF L(X) = 25 AND RND(1) > @.5 THEN L 
(XY) eb 

NEXT X s RETURN 

IF (28) <> @ AND L(37) <> @ THEN PRINT "DARK,.CAN’T SE 
E" s FL = 2 : RETURN 

IF (37) = @ AND FL = 1 THEN RETURN 

IF (28) = @ AND FL = 1 THEN RETURN 

IF L¢37) <> @ OR FL <> 1 THEN PRINT "DARK,.CAN’T.SEE" 1 
FL = 2 : RETURN 

IF L(28) «> @ OR FL <> 1 THEN PRINT "DARK, .CAN‘'T,SEE" ¢ 
FL = 2 : RETURN 

T= @: FOR X = 170 6: IF F(L, X) = @ THEN T = X 

NEXT X s X = RND(-TIME / 30) 

IF T <> @ THEN FCL, T) @ INTC(RND(1) *# 17°) + dot TF PCL 
» T) = L THEN GOTO 2460 

IF T <> @ THEN PRINT "SECRET.FASSAGE!" : T = @ : RETURN 


RETURN 

T= @: FOR X = 1 TO 6: IF AX(X) <> @ THEN T = 1 
NEXT X : IF T <> @ THEN YY = 3 

RETURN 


Attack routine 


3 

IF S$ > 11 THEN PRINT "CAN‘T.CALL.AN.OBJECT!" +: GOTO 108 
@ 

IF L(24) <> Lo THEN FRINT "NOJPHONE!" : GOTO 1080 

IF S$ <> 11 THEN PRINT "LINE,IS,BUSY" : GOTO 1082 

GOSUB 2720 : PRINT "CALLJZESTABLISHED :,GIVE" 

INPUT "CODE.PHRASE"; C# : C#=UPPERS (C#) 

IF C# <> D# THEN FRINT "INCORRECT" :s GOTO 1080 

IF C# = D# THEN L(it) = INTCRND(1) * 16) + 1 2 PRINT "C 
ORRECT.CODE" : GOTO 1280 


Phone routine 


PRINT "PAFERLWITH.CODE,.WORD" : FRINT "CODE,.WORD,.IS."; D 
¢ : RETURN 

CLS : FOR ERE = 1 TO 10 : FOR ER = 300 TO 1000 STEP 50 

: SOUND 129, T, 1@, 15 : NEXT ER : NEXT ERE 

GOSUB 22340 : PRINT “YOU.LCOMPLETED,.YOUR.MISSION!!!!" 3s F 
OR ER = 1 TO 12 : LOCATE 1, 1 : PRINT CHR@(11) 8 NEXT ER 


X = INTCRND(1) * 17) + 10: IF L(20) = 3@ AND X = 17 THE 
N GOTO 2648 

IF X = 5S THEN 2640 

RETURN 
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26728 
2680 
26908 
2700 
2718 
2720 
2730 


2740 
2750 
2760 
2770 
2780 


2798 
2800 
2812 


2820 
2830 
2840 
2850 
2860 


287 
2880 
2890 


2980 
29710 
2920 
2930 
2940 


2950 
2968 


Display code word and end of mission routine 


H 
PRINT CHR#(7) 
RETURN 
PRINT CHR# (7) 
RETURN 
FRINT CHR (7) 
RETURN 


Short beep 


IF F = 4 THEN RETURN 

IT = ( INT(RND(2) * 3) + 1) * 100 
FRINT CHR#(7) 

RETURN 


Check flag 


IF L.(26) = @ THEN FRINT "STRUCK .WATER" : RETURN 
L¢26) = 4 os PRINT "BULLETS" +: RETURN 


Water and bullets routine 


: 

FOR X = 1 TO 10 

IF LX) = 25 THEN L(X) = INTCRND(4) * 17°) + 1 

TF W(X) = GS AND X «<> 2 THEN L.(X) = 28 : GOTO 26420 
NEXT X : RETURN 


Randomise routine 


tb = INTCRND(1) * 16) + 1 1 IF L = 12 THEN 2880 
IT = 25 : RETURN 


Check random number 


FRINT “LOST's Ys; "HITAPOINTS" s HF = HP = Y : RETURN 

IF S$ <> 14 AND S «> 15 AND S <> 16 THEN PRINT "CAN’T.GO 
a THERE!" 3s RETURN 

IF (S$ = 15 OR S = 16) AND L(S) <> L THEN FRINT "NOT UHER 
E" : RETURN 

IF S = 15 OR S = 16 THEN PRINT "FELLJOFF" : Y = -(S = 1 
3) * 25 + 10 * ( ~(S = 16)) : GOSUB 2910 : RETURN 

IF S$ = 14 AND L(29) <> -1 THEN PRINT "LOCKED" +: RETURN 

IF S = 14 AND L(29) = -1 THEN P(17, 1) = L2: L2 = Loe 

PRINT "INJCAR s,LOOK!" : L(29) = @ : RETURN 
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2972 


2982 
299 
2000 
3018 
3020 
2030 
3040 
3050 
3060 


2078 
3082 
3098 
3100 
311 
3120 
3130 


RETURN 


Messages for hit points and car 


PRINT CHR# (7) 

LOCATE 13,20 : FRINT"Fress,CSFACEI]" : Z2=@ 
TIF INKEY#="" THEN 3262 

ZZ=ZZ+1 s IF 2Z*100 THEN 3010 

LOCATE 13,20 : PRINT STRING#(13,32) 

IF INKEY#="," THEN 3060 

ZZ=ZZ+1 : IF ZZ<150 THEN 3040 ELSE 2000 
CLS : RETURN 


Wait for keypress 


H 

CLS 

FOR T=1 TO 4@ 

PRINT TAB(T) "BYE"CHRS (7) 
NEXT T 

PRINT 

END 
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ChexSum Tables 


HR ER BH RHR ER OE 


Hip it HOH H 8 ROH RoR HOH BOROR ORB ORR ROR AH RB RRR BHR RRR BR BREE dB RO 


551 
220 
748 
2902 
a 
6678 
8723 
437 
4554 
8025 
3989 
437 
2297 
7181 
7566 
7985 
5871 
8151 
5834 
5945 
4039 
4053 
5682 
BOO 
2957 
5599 
5480 
5522 
Q 
9579 
2263 
2013 
2085 
2224 
1403 
1651 
138 
201 
Q 
Sot 
334 
11214 
974 
1986 
756 
484 
2783 
201 
a 
1787 
1972 
1955 
1950 
1792 
1790 
1964 
1943 
1872 
2279 
1947 
1948 


620 
630 
640 
650 
668 
670 
680 
698 
72Q 
718 
72 
730 
740 
750 
760 
778 
780 
798 
820 
810 
820 
820 
840 
850 
8460 
870 
880 
890 
92 
91 
920 
920 
94 
95 
962) 
978 
980 
990 
1@@2 
1010 
1020 
1030 
104 
1050 
1062 
1070 
1082 
10908 
1100 
111 
112 
1130 
114 
1150 
116 
1170 
1182 
1190 
120 
1210 
1220 


1795 
1960 
1792 
2028 
1945 
1951 
1936 
1951 
1948 
1802 
1943 
1845 
@ 
4850 
983 
S527 
2870 
3913 
2652 
3741 
1S21 
1640 
2012 
3246 
6464 
6190 
1026 
@ 
1121 
2558 
4025 
2854 
@ 
4542 
S225 
2983 
6529 
3030 
2405 
@ 
4426 
7407 
417 
@ 
O42 
3221 
2418 
1166 
@ 
2643 
7803 
2209 
3910 
7749 
57@ 
@ 
3029 
5446 
7142 
3247 


3363 
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Ho fo hE BB BHA HERE BBR eR RHP RE oR A 


iit fH HoH EHR RH HS HERE Re 


HOG 


i uoue# 


1232 
1240 
1250 
1260 
127 
1282 
1292 
1300 
1310 
1320 
1330 
12340 
1350 
1360 
1370 
1380 
1390 
1408 
1410 
1420 
1430 
1440 
1450 
1468 
1472 
1489 
1490 
15@Q@ 
1510 
1520 
1530 
1540 
1550 
156 
1570 
1580 
159 
1682 
1610 
1620 


1630 = 


1640 
1650 
1646 
1670 
1680 
1690 
1720 
1710 
1720 
1730 
174 
1750 
1760 
1778 
178 
179 
1800 
1810 
1820 
1830 


Hi HG Eh ER RH hE ae dB oh EO HOR RRO RO RA 


HHH HH BOB 


HoH 


ii 


of BOR 


HEH HOHOR OF 


1840 
1850 
1860 
1878 
1880 
1898 
19200 
1918 
1920 
1930 
1940 
1950 
1960 
1970 
1988 
1990 
2080 
2010 
2020 
2020 
2040 
2050 
2068 
2070 
2080 
2090 
2100 
2118 
2120 
2130 
2140 
2150 
2162 
2178 
2180 
2199 
2200 
2210 
2220 
2250 
2240 
2250 
22608 
2270 
2280 


HH HH RHE HERB HERE R BRE HBR Raa a 


Ha EOE 


HE HBR EB 


2290 
2308 
2310 
2320 
2330 
22408 
2350 

OQ 
2370 
2380 
22390 
2400 
2410 
2420 
2430 
2440 
2450 
2468 
2470 
2480 
24928 
2500 
2510 
2528 
2530 
2540 
2550 
2568 
2570 
2580 
2590 
2600 
2610 
2628 
2630 
264 
2650 
2668 
2678 
2680 
2690 
27200 
2710 


2720 


Hie aR 
fo 
cn 
pa 
cf 


i Hi PER ED HR ROR ORR RRR EO EB oe Roe RR RB RE Re 
hh 
fos) 
Be] 
nN 


R 
ui 
ao 
eI 
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2730 
2740 
2750 
2768 
2770 
2780 
2790 
2820 
2810 
2820 
2830 
2840 
2850 
2842 
2870 
2880 
2890 
2928 
2910 
2928 
2930 
2940 
2950 
2968 
2978 
29780 
2990 
3002 
7010 
3020 
3030 
3048 
3050 
2060 
2070 
3080 
3098 
312@ 
3110 
3120 
T1230 


TOTAL. 


ER HA ER HG Hee ER BRB RHR RR RRR GRR Oe ROR Oe 8 


BOMB BOUNCER 


CLASSIFICATION: Shoot-up Game 


Try and trap as many of the bombs as possible use ‘,’ to move left and 
‘’ to move right. 


PROGRAMMING SUGGESTIONS 


There could well be some sound effects designed to put the player off 
and levels, so that each level could have different elements in. For 
instance obstacles to distract, or a faster mode of play. 


PROGRAM 

Variables 

POSITION Shield’s position 

SHIELD$ String for displaying shield 
SCORE Number of bombs bounced 

T Temp 

FLAG The second bomb has been sent 
N Temp 
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Program Structure 
Function/Activity 


Lines 

40 —110 
140 — 307 
330 — 440 
470 — 580 


Initialise 

Main loop 
Deflect bomb 
Game over 
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BOMB BOUNCER 


Initialise game 


bel’) FEN 1 os MODE 41 os INK @, @ 2: PAPER @ : BORDER @ + INE 1, 
18 : INK @ 2 INK 3, 7 


6a POST TION = 20 

70 SYMBOL. 240, @, O@, BW, By, 15, 63, 255 2 SYMBOL 241, 3, 
Sy Oy Sy Sy OIG y jy ewe 

col” i A) CHRE (240) + CHRE C241) 

90 


102 GOTO 258 


Main loop 
11a t 
140 FC om 1 TO 28 
15@ 1. . POSITION, @& 
16 PRINT SHIELD # 
178 FOSITION = FOSITION + ( TNEEYCS9) &» =1 ) = ( TNKEY CS4) 
yw 
18 4 THEN FOSITION * 3&8 
19 33 THEN FOSTTION = 4 
‘OWQ RINT CHR# (C14) 


e218 IF (¢ TEST ( FOSITION * 16 ~ 8, 8) = 2 
N* 16 + 8, 8) = 2 AND T = 4 ) THEN GOSUR 


“OSITTO 
GOTO 238 


(IF To = 4 AND FLAG THEN 472 
NEXT T 

FLAG = 4 

LOCATE RNDCL) * SO + Sy 4 
PEN 2 

FRINT CHR# C252) 

PEN 1 

GOTO 148 


Deflect bomb 
N= POSITION ~ 2 TO 1 STEP ~ 1 
CHR CR2 


+ 1 


Game over 


44Q 


FOR fT = 8 10 15 

SOUND 1, 2@@, 15, T 

NEXT 1 

SOUND 1, 300, 10@, 15 

FOR T = 1 TO 26 

LOCATE 1, 25 

PRINT CHR C1 @) 

NEXT 7 

LOCATE 18, 10 

PRINT “YOU,BOUNCED'; SCORE 3 "BOMBS" 
FOR To = 1 TO 2000 : NEXT T 
RUN 


SQ = 240 = 430 = 201 
od = 250 = 440 » @ 

70 = 260 = 470 = 1816 
BQ = 270 = 480 = 873 
9Q = 2B0 = 490 = 455 
1OQ = 290 = SOO = 619 
11Q = 300 = S19 = 1020 
140 = 330 = S20 = 310 
130 = 540 = S30 = S97 
{64 = 350 = S40 = 4°53 
17Q = 360 = SSO = BLS 
180 = 25 S70 = S60 = 2250 
190 = 2587 380 = 405 S70 = 1644 
00 = B74 390 = 1294 S80 = 202 
210 * 6611 400 = 427 
220 = 1956 4i@ = 254 
230 = ASS 420 = 1540 TOTAL = SS@168 
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SPRITE EDITOR 


CLASSIFICATION: Utility 


This program allows you to create sprites on your Amstrad a facility 
that has been left out of this otherwise fine machine! 

You can select a sprite which is a maximum of 4 characters across 
and 3 characters down. If you already have the raw data for a sprite 
that you wish to modify, then you can key them in at the start. 

To edit a sprite, move the cursor using the cursor keys, and press 
<ENTER?> to either plot a point or erase one, depending what is under 
the cursor. Press ‘C’ to enter command mode: then press ‘E’ to erase 
the sprite, or ‘D’ to obtain the Data representing the sprite. 

Note that the sprite is made up of several characters, numbered 
across and then down. 

The small box in the top-right corner of the screen is the actual sprite 
that you are working on. 
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PROGRAM 


Variables 
ROW, COL Row and column of cursor on main grid 
MCROW, MCCOL Maximum number of rows and columns 


in characters 
GRID(MCROW,MCCOL 8) Numbers stored for grid 


GC, GR Grid’s starting column and row 
I,J Temps for row, column 

L,K Temps for numbers in the grid 
NM, NUM, X$, POWER Temps 

CU Character under cursor 

C,Q Editor temps 

CH Cursor character 

Program Structure 

Lines Function/Activity 

10 —180 Front Screen and Initialise 
208 — 340 Set up screen 

358 — 990 Main loop 

1000 — 1999 Draw grid 

2008 — 29908 Draw sprite 

3008 — 3990 Toggle point on grid 

4000 — 4490 Commands 

4508 — 4990 Print out data 

5008 — 5050 Set CU (character under cursor) 
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SPRITE EDITOR 


Front screen and initialise 


18 : INK i, 20: INK 2, 6: INK 3, 28 

20 : HORDER 4 

30 = Lc S, 1: PRINT "SPRITE,BDITOR” 

4a LOCATE 1, 8 2 INPUT "HOW,MANY CHARACTERS .ACROSS, (14-44) 
"sXe 

5Q IF VAL( X# ) > 4 OR VAL( X#) < 1 THEN 40 

&Q : VAL XH) 

7 t, 11 3 INPUT "“HOW,MANY.CHARACTERS,DOWN, (la-aa)" 

8 IF VAL( X# > » & OR VAL( X# ) < 1 THEN 70 

90 MCROW = VAL( X# ) 


1Q@ LOCATE 1, 44 : INFUT "KEY ,IN NUMBERS (4K) OR BU OL Dn acannon 
tito KNEW A SPRITE CaN a) a Xe 

TF Xe = "NN" OR X# = "mn" THEN 208 

FOR toe. TO MOROW 

FOR Jo= 1 TO MCCOL : FOR kK = 1 TO 8 

Ae "CHARACTER ANQa ws MOCOL * ¢ Tom 1) + Je "NUMER 


esi) TNeur. X#oa TF VAL X# 2 8 @ OR VAL X# >) & 23S THEN 148 


16@ GRIDC 1, Jy Ko) & VALCO X# ) 
170 NEXT og NEXT os NEXT 


Set up screen 


RO: GC # 2: GR 24 


X#o oe UN" OR X# = "nn" THEN 230 ELSE GOSUER 10a 


FOR C= 1 TO MCROW s: FOR J = 1 TO MOCOL 
GOSUE UIQ 


SAATE 2, 2 os PRINT GHRE( 150 ) 2 FOR Y = @ 
LOCATE GO - 1, fo 8 PRINT CHERa ¢ 
PRINT CHRE( 149 ) s NEXT 


;: GC + M 


2 2) TO GC Los LOCATE 1, GRo- tog FR 
154 ) 
278 + MCCOL # "8 » Jos PRINT CHR C156) 
2 BQ MO 25 + MCCOL : LOCATE Ty, dos PRINT CHREC 1S 
ATE Lf, MCROW + SINT CHRE( 154) 

298 “(OF TO Lo + MCROW s tos PRINT 
) , a + MCCOL, If Ri MRE (Lab) 

2) 0) LOC ; Lo: Fea CHRE( 150 ) : LOCATE 36 + MI , it 
: F T CHR#®( 156 ) 

a4) ba MG “ROW : FRINT HRS ¢ 147 ) 3 


'R INT CHR 1 


* 8+ tor LOCATE I, 
NEXT & LOCATE 1, GR + : 
LOCATE MCCOL * 8 + 2&2, GR + MCROW * 8 


PR (NT Ct 
s PRINT CHRé¢ 13 ) 
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L998 
2WUQ 


eW10 


OWew 


Main loop 


COL = 2: ROW = 2 : GOSUR SOOM 1: C= Os O = tt CH = 1 
43 


X# = [NKEY$ 2: C = C + 1 

If C = 7 THEN C = Q Qs it~ @ 

IF Q «<> @ THEN 41 

IF CH = 143 THEN CH = 

NT CHRE¢ CU) : Q 1: 

LOCATE COL. ROW : PEN to: PRINT CHR#( 143 ) : @ = Le C 

H = 143 

IF X# = "" THEN 260 

TF INREY( 2) % =-2 THEN LOCATE COL, ROW : FRINT CHREC C 

Uo) os IF ROW GRo- 2 + ¢( MCROW ) * 8 THEN 362 ELSE ROW 
GOSUE S000 8 GOTO 268 

TF INKEYC 1 “1 THEN LOCATE COL, ROW : PRINT CHREC C 

Wo) 8 TF COL > GO = 2 + MCCOL * 8 THEN 360 ELGE COL = (0) 

lL. + 1 2: GOSUB S@Q@W +: GOTO 360 

TF INKEYC @ ) ® =1 THEN LOCATE COL. ROW : PRINT CHRS( C 

Wo): TF ROW « GR + 1 THEN 360 ELSE ROW = ROW - 1 5 GOSU 

BR SOOO : GOTO @ 

TF TNEEYC @ ) 2 -1 THEN LOCATE COL, ROW : PRINT CHR&( C 

Uo): TF COL < GO + 1 THEN 360 ELSE COL @ COL - 1 8 GOS 

BK S000 : GOTO 360 

TF INEFEYC 18) % -1 THEN GOSUE 3000 

TF INKEY( 62°) * =~ THEN GOTO 4000 

GOTO 260 


LOCATE COL, ROW : FEN to: FRI 


Draw Grid 


PEN to: FOR f£ = 1 TO MCROW : FOR Jo = 2 TO MCCOL s FOR F 
¢J-~ 1), GR+O* ¢T* 1) + Ke 1 


NUM = GRIO( T, J, KF) 

NM = NUM AND © @ 7 € Bow hod) 

TF NM = @ THEN PRINT ","y ELGE PRINT CHREC 231) 4 
MEXT # NEXT s NEXT & NEXT 

RE TURN 


Draw sprite 


~* ¢ Tm 1) + J, GRIDC T, J, 1°), GR 


ID¢ 1, GRIDC La Ja ), GRID(C 1, J, 4), GRIDC I 
34 5 t, J, 6), GRIDO( t, Jy 7), GRID( I, d, 


8) 
PEM fos LOCATE 
* ¢ t= 1) + J) 
bok CURRIN 


ke J, Lot Tos PRINT CHR#C 240 4% MOCOL 
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2998 
Bs. "4) 
3018 
3Q20 
SO30 
3048 
3Q58 
3068 


449) 
4500 
4Siie 


4s 
4540 
HOS 


ASO’ 
4565 


A7 
ABO 


459 
4608 
4610 
42 


Toggle point on grid 


GOSUB SW 

NUM = NUM AND ¢ 255 - FOWER ) 

NM = NM XOR POWER : NUM = NUM OR NM 
GRIDC I, J, & ) = NUM 

GOSUR SO 

GOSUR 2000 

RE TURN 


Editor commands 


PEN 3 os LOCATE 


“3a © &§ PRINT "CMD s " 


LOCATE 3%, 8 : PRINT "Eye": LOCATE 9 s PRINT "ERAS 
2 PRINT "Dy" : LOCATE 35, 13 8 FRINT "GE 


ae 14 : PRINT "DATA" 
IF X# = "" THEN 40:30 
A AND X# <> "e" THEN 4260 
FOR f = 1 TO MCROW : FOR J = 1 TO MCCOL s FOR kK = 1 TO 
8 : GRIOC I, J, BF) ® NEXT s NEXT s NEXT s FOR I = 3 
4S 70 40 2: FOR J = 6 TO 235 : LOCATE T, Jo: PRINT "A" 8 NE 
XT s NEXT s GOSUE 1000 : GOTO 220 
TE Xs @ "DOD" OR X# = "A" THEN 4580 
FOR 1 = 35 70 40 : FOR J = 6 TO 2S: LOCATE IT, Jo: PRIN 
ro", & NEXT s NEXT 
GOTO 260 


Print out Data of current sprite 


@ “RINT "“DATA,ZPRINTOUT" 

1, % os FRINT "CHARACTERS ARE J.NUMRERED .LEFTATO.RI 
LOCATE 1, 6 : PRINT "AND, THEN, TOF,TO,BOTTOM" 
LOCATE 1, 8 2 PRINT "FORAEXAMPLE faadametaa! & LOCATE 1 
Sy (Mo: FRIN’ "4,454.46" 


PRINT 

FOR £ = 1 TO MCROW 

FOR J = 1 TO MCCOL : PRINT "“CHARACTER,NO. ws MCCOL # ¢ 
T- 1) + Jy "DATA 3," 

FOR kos 1 TO 8 s FRINT USING "###"s GRIDC LT, Jy Bog gd 
PRINT s NEXT s FRINT 


Le OE 1o+J3) 8s (TF TP = 4 0R TP = 11 7 
HEN LOCATE 1, 25 2 PRINT "“PRESS.SFPACE,TO.CONTINUE" & X# 
= [TNREY# 3s LF X$ «<> "," THEN 4565 
E : NEXT 

NCATE Ly 2% 2 PRINT CHR#( 10 09 CHRE( 10) : LOCATE 1, 
‘ : PRINT "RETAINATHIS,.SHAPE,(R)," s LOCATE 1, 25 2 FR 
INT “START ,AFROM,ASCRATCHA(S) ,.OR,QUITACO) AP's 
X#o = INKEY# s TF X# = "" THEN 4599 


[F XS = "R" OR X# = "er" THEN 200 
IF xX# = "S$" OR X# = "Ss" THEN RUN 
IF XS = "GQ" OR X# = "q" THEN END ELSE 4580 
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Set character under cursor 


i} INTC ¢ ROW =~ GR) / 1 
ry) INTC © COL ~ GO) ¥ 1 
k ROW - ( GR + 8 * ¢ T- 1d d + 4 
POWER = @ oo" ¢ 2? = COL + GO + B* ¢ I~ bd ) ¢ NUM = GR 
fOC fy Jy KB ) og NM NUM AND FOWER 
S040 TF NM = @ THEN CU = 32 ELSE CU = 2 


SMSO RETURN 


ChexSum Tables 


i B7Q = 
380 = 

= a9Q = 

= 400 = 

a 410 = 

420 = 

s 4SQ = 

en 44Q = 

480 = 

= : 460 = 

= 2278 470 

= 1454 es 

<= 2449 a 

= 411% = 35 me 

= SS = 4340 = 1494 
= = 4550 = 8067 
al = 4860 = 384s 
“ = 4565 = 8675 
ed mm 4370 = BE 
vs ® 4880 = 

= = AIQ om 

a = 4600 = 

we 4OLQ & 

“ 4620 = 

z 4990 = 

= S000 = 


SOLQ = 
SO2Q = 
SASSO x 
S040 = 
SOSQ 


ot 9204 
S194 
2875 
442s 
LA96 
18678 Ado 
Q 2) 
S267 S990 
169% 4008 


RHEE EB aH 


# 
a 


ao F 


TOTAL = 


#H RH RHE 


3 
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APPENDIX A 


Joystick Routine 
Below is a short general purpose joystick routine. It is included as an 
example of using joysticks with the Amstrad and as a routine to include 
with your own games or with the games from this book. 


10 


20 
30 
40 


8 
60 
78 


8a 
90 
120 


150 
140 
15a 


160 
170 


DEFINT a~-z 


: 
type=1 
MODE type 


ymax=2 


Define all variables as Integers for speed 


Select and set screen mode 


Set vertical and horizontal dimensions 


xmax=20 : IF type=1 THEN xmax=40 ELSE IF type=2 THEN xm 


ax=80 


a=JOY (0) 


4 
IF a AND 1 THEN 
IF a AND 4 THEN 


Set starting position 


Read Joystick 


Adjust Horizontal and vertical position 


y=y-1 ELSE IF a AND 2 THEN y=y+1 
x=™x-1 ELSE IF a AND 8 THEN x=x+1 


Select face and alternate when fire button pressed 


3 
IF a AND 16 THEN a#=CHR#(225) ELSE a#=CHR# (224) 
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Wrap character around screen and keep it within the 


screen boundaries 


18 


198 IF yai THEN y=y+23 ELSE IF y223 THEN y*y~23 

200 TF x¢io THEN x=x+xmax ELSE IF x>xmax THEN x=x-xmax 
Erase old position 

210 Hy 


220 LOCATE xold,yold 
230 PRINT" A'S 


Display character (face) 


242 H 
250 LOCATE x,y 
268 PRINT ad; 


Update old position and loop 


278 H 
280 xold=x : yold=y 
298 GOTO 120 


ChexSum Tables 


10 = 438 120 = 838 230 = 350 
20 = @ 130 = @ 240 = @ 

BQ = 847% 140 = 42336 250 = 764 
40 = 796 1580 = 4341 260 = 1a 
50 = @ 160 = @ 270 = @ 

602 = 874 170 = 3378 280 = 2155 
70 = S843 182 = @ 290 = 342 
82 = @ 190 = 4333 

90 = 1078 200 = S986 

100 = 2155 210 = @ TOTAL = 402382 
110 = @ 220 = 14@2 
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NOTES 


NOTES 


NOTES 


NOTES 


NOTES 


NOTES 
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